Merhabalar

procedure TForm1.bsSkinEdit1Change(Sender: TObject);
begin
if bsSkinComboBoxEx1.Text='' then
adotable1.Filtered:=False;
if bsSkinComboBoxEx1.Text='adi' then
begin
ADOTable1.Filter:='ad like '+'%'+bsSkinEdit1.Text+'%';
ADOTable1.Filtered:=True;
if ADOTable1.Fields.Fields[1].Value= null then
showmessage('Böyle Kisi Kayytlarda Bulunmuyor');
end;
if bsSkinComboBoxEx1.Text='telefonu' then
begin
ADOTable1.Filter:='telefon like '+'%'+bsSkinedit1.Text+'%';
ADOTable1.Filtered:=True;
if ADOTable1.Fields.Fields[2].Value= null then
showmessage('Böyle Kisi Kayytlarda Bulunmuyor');
end;
if bsSkinComboBoxEx1.Text='emaili' then
begin
ADOTable1.Filter:='email like '+'%'+bsSkinedit1.Text+'%';
ADOTable1.Filtered:=True;
if ADOTable1.Fields.Fields[3].Value= null then
showmessage('Böyle Kisi Kayytlarda Bulunmuyor');
end;
end;


arama satırları bunlar yalnız nedense malesef hata veriyor delphi arguments are of the wrong type, are not of acceptable range, or are in conflict with one another diye hata vermesine rağmen arıyor doğru buluyor ama bunun nedeni nedir acaba?