Поиск по нескольким полям

ADOQuery1.SQL.Add('WHERE Data = #Day/Mouth/Year#');

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Active := False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT *');
ADOQuery1.SQL.Add('FROM PO');
if (Length(Edit1.Text) > 0) or
   (Length(Edit2.Text) > 0) then
     begin
 ADOQuery1.SQL.Add('WHERE naimenovanie LIKE' + #39 + Edit1.Text + '%' + #39+'and');
       ADOQuery1.SQL.Add(' Data_pokup LIKE ''' + Edit2.Text+'''');
       ADOQuery1.Active := True;
     end
   else
     begin
       ADOQuery1.Active := True;
       ADOQuery1.First;
     end;
end;

ADOQuery1.Active := False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT *');
ADOQuery1.SQL.Add('FROM PO where ');
if (Length(Edit1.Text) > 0)  and
   (Length(Edit2.Text) > 0) then
     begin
 ADOQuery1.SQL.Add('WHERE naimenovanie LIKE "%' + + Edit1.Text + '%" and');
       ADOQuery1.SQL.Add(' Data_pokup LIKE "%' + Edit2.Text+'%"');
       ADOQuery1.Active := True;
     end
   else
     begin
       ADOQuery1.Active := True;
       ADOQuery1.First;
     end;

adoquery1.SQL.Add('where a.data>=:data1 and a.data<=:data2 ');
adoquery1.Parameters.ParamByName('data1').Value:=dateedit1.Text;
adoquery1.Parameters.ParamByName('data2').Value:=dateedit2.Text;

  Var A: Variant;
      i:integer;
      KF : String;
begin
  i:=0;
  KF:=''; //Переменная KeyField - ключевые поля, по которым будет производиться поиск
  if length(FORM1.Edit1.Text)>0 then
    begin
    if i=0 then KF:='Fam' else
    KF:=KF+';'+'Fam';
    i:=i+1;
    end;
  if length(FORM1.Edit2.Text)>0 then
    begin
    if i=0 then KF:='Im' else
    KF:=KF+';'+'Im';
    i:=i+1;
    end;
  if length(FORM1.Edit3.Text)>0 then
    begin
    if i=0 then KF:='Ot' else
    KF:=KF+';'+'Ot';
    i:=i+1;
    end;
  if length(FORM1.Edit4.Text)>0 then
    begin
    if i=0 then KF:='Inn' else
    KF:=KF+';'+'Inn';
    i:=i+1;
    end;
  if length(FORM1.Edit5.Text)>0 then
    begin
    if i=0 then KF:='ogrn' else
    KF:=KF+';'+'ogrn';
    i:=i+1;
    end;
 
if i>0 then //Заполняем значения имеющихся полей для поиска
begin
  A := VarArrayCreate([0, i-1], varVariant);
  i:=0;
  if length(FORM1.Edit1.Text)>0 then
    begin
    A[i]:=FORM1.Edit1.Text;
    i:=i+1;
    end;
  if length(FORM1.Edit2.Text)>0 then
    begin
    A[i]:=FORM1.Edit2.Text;
    i:=i+1;
    end;
  if length(FORM1.Edit3.Text)>0 then
    begin
    A[i]:=FORM1.Edit3.Text;
    i:=i+1;
    end;
  if length(FORM1.Edit4.Text)>0 then
    begin
    A[i]:=FORM1.Edit4.Text;
    i:=i+1;
    end;
  if length(FORM1.Edit5.Text)>0 then
    begin
    A[i]:=FORM1.Edit5.Text;
    i:=i+1;
    end;
 
If not Dm.FORM1.Locate(KF,A,[loCaseInsensitive, loPartialKey]) then
showMessage('Совпадений не найдено');
end else showMessage('Не введено значений для поиска');
end;

ADOQuery1.SQL.Add('[Додаткова інформація] LIKE' + #39 + Edit11.Text + '%' + #39 +' AND ');

procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery2.Active := False;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT *');
ADOQuery2.SQL.Add('FROM [Сг техніка]');
if (Length(Edit6.Text) > 0) or
   (Length(Edit7.Text) > 0) or
   (Length(Edit8.Text) > 0) or
   (Length(Edit9.Text) > 0) or
   (Length(Edit10.Text) > 0) or
   (Length(Edit11.Text) > 0) or
   (Length(Edit12.Text) > 0)then
     begin
       ADOQuery2.SQL.Add('WHERE [Трактори-всього] LIKE' + #39 + Edit6.Text + '%' + #39 +' AND ');
       ADOQuery2.SQL.Add(' [Вантажні автомобілі] LIKE' + #39 + Edit8.Text + '%' + #39 +' AND ');
       ADOQuery2.SQL.Add(' [Комбайни-всього] LIKE' + #39 + Edit9.Text + '%' + #39 +' AND ');
       ADOQuery2.SQL.Add(' [зернозбиральні комбайни] LIKE' + #39 + Edit10.Text + '%' + #39 +' AND ');
                                      ADOQuery1.SQL.Add('[Додаткова інформація] LIKE' + #39 + Edit11.Text + '%' + #39 +' AND ');[/COLOR]
       ADOQuery2.SQL.Add(' [Код] LIKE' + #39 + Edit12.Text + '%' + #39 +' AND ');
       ADOQuery2.SQL.Add(' [міні-трактори (садово-городні) та мотоблоки] LIKE' + #39 + Edit7.Text + '%' + #39);
       ADOQuery2.Active := True;
     end
   else
     begin
       ADOQuery2.Active := True;
       ADOQuery2.First;
     end;
end;