Поиск в DbGrid по нескольким параметрам

DM.ADOTable7.Filter:='[Пол] LIKE '+#39+ComboBox1.Text+'%'+#39;
if length(ComboBox1.Text)>0  then DM.ADOTable7.Filtered:=true;

 ComboBox2.Text:= ComboBox1.Text;

procedure TForm1.SQLQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
 with DataSet do
 Accept:=
  ( (ComboBox1.ItemIndex<>-1)
   and (pos(ComboBox1.Text,DataSet.FieldByName('Пол').AsString)<>-1))
  or
  ( (ComboBox2.ItemIndex<>-1)
   and (pos(ComboBox2.Text,DataSet.FieldByName('Положение').AsString)<>-1))
 ;
end;

procedure TForm1.Button1Click(Sender: TObject);
var filtr, // формируемая строка фильтра
add: string;
begin
ADOTable1.filtered:=false;
filtr:='';
if length(edit2.text) > 0 then
filtr:= 'ФАМИЛИЯ LIKE '+ #39 + Edit2.Text + '%' + #39;
 
if length(edit3.text) > 0 then
begin
if length(filtr) > 0 then add:= ' and ' else add:='';
filtr:=filtr + add + 'ИМЯ LIKE '+ #39 + Edit3.Text + '%' + #39;
end;
 
if length(edit4.text) > 0 then
begin
if length(filtr) > 0 then add:= ' and ' else add:='';
filtr:=filtr + add + 'ОТЧЕСТВО LIKE '+ #39 + Edit4.Text + '%' + #39;
end;
 
if length(filtr) > 0 then
begin
ADOTable1.Filter:= filtr;
ADOTable1.filtered:=true;
end
else Showmessage('Все поля пусты!');
 
end;