Фильтр в DBGrid по двум столбцам

ADOTable.IndexFieldNames:='...';

  if Length(Label2.Caption)>0  then                   
  DataModule2.SamozapTable6.Filtered:=true
  else
  DataModule2.SamozapTable6.Filtered := false;
  DataModule2.SamozapTable6.Filter := 'ФИО_врача='''+Label2.Caption+'''';

if (Length(Edit1.Text)>0) and (Length(Edit2.Text)>0)  then  //если поля поиска заполнены
 With DataModule2.SamozapTable6 do
Begin
begin
 Filter := '(Дата= '''+Edit1.Text+''') and (ФИО_врача= '''+Edit2.Text+''')';  //задаем критерии фильтра               
 Filtered :=true; //фильтруем
end
  else
 Filtered := false; //иначе возвращаем все записи
End;
End;

procedure TForm7.Button2Click(Sender: TObject);
begin
  if (Length(Edit1.Text)>0) and (Length(Edit2.Text)>0)  then                   
  With DataModule2.SamozapTable6 do
    begin
      begin
        Filter := '(Дата= '''+Edit1.Text+''') and (ФИО_врача= '''+Edit2.Text+''')';  
        Filtered :=true; 
      end
    else
    Filtered := false; 
    end;
end;

procedure TForm7.Button2Click(Sender: TObject);
begin
  With DataModule2.SamozapTable6 do
  if (Length(Edit1.Text)>0) and (Length(Edit2.Text)>0)  then                   
  begin
     // begin // Это здесь ни к селу ни к городу...
     Filter := '(Дата= '''+Edit1.Text+''') and (ФИО_врача= '''+Edit2.Text+''')';  
     Filtered :=true; 
  end
  else
    Filtered := false; 
  // end; // Это - тоже...
end;