Delphi БД - Access + ADO

procedure TForm1.Button3Click(Sender: TObject);
var s:string;
begin
if Form1.CheckBox1.Checked then  s:= 'ФИО';
if Form1.CheckBox2.Checked then  s:= 'Дом';
if Form1.CheckBox3.Checked then  s:= 'Год';
if Form1.CheckBox4.Checked then  s:= 'Месяц';
 
if Form1.ADOTable1.Locate(s, quotedstr(Edit4.Text),[loCaseInsensitive])
then
begin
if Form1.CheckBox1.Checked then Form1.ADOTable1.Filter :='ФИО= '+Edit4.Text;
if Form1.CheckBox2.Checked then Form1.ADOTable1.Filter :='Дом= '+Edit4.Text;
if Form1.CheckBox3.Checked then Form1.ADOTable1.Filter :='Год= '+Edit4.Text;
if Form1.CheckBox4.Checked then Form1.ADOTable1.Filter :='Месяц= '+Edit4.Text;
Form1.ADOTable1.Filtered :=true;
ShowMessage('Выполнено')  ;
end
else
 begin
   if Form1.CheckBox1.Checked then ShowMessage('Не найдено');
   if Form1.CheckBox2.Checked then ShowMessage('Не найдено!');
   if Form1.CheckBox3.Checked then ShowMessage('Не найдено!');
   if Form1.CheckBox4.Checked then ShowMessage('Не найдено!');
 end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From table where  ФИО LIKE'+#39+'%'+Edit4.Text+'%'+#39);
ADOQuery1.Active:=True;
end;