Не работает фильтр записей

procedure TForm1.FindfamilyChange(Sender: TObject);
begin
If Length(FindFamily.Text)>0 then
 begin
  Form1.ADOTable1.Filtered:=False;
  ADOTable1.Filter:='Ôàìèëèÿ_êëèåíòà LIKE '+ #39 + FindFamily.Text + '%' + #39;
  Form1.ADOTable1.Filtered:=true;
 end
 else
  Form1.ADOTable1.Filtered:=False;
 end;

ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=it_tp.mdb';
ADOConnection1.Open;
Form1.ADOTable1.Active:=false;
Form1.ADOTable1.Active:=true;
Form1.ADOTable1.Filtered:=False;

begin
  Application.Initialize;
  Form15 := TForm15.Create(Application);
  Form15.Show;
  Form15.Update;
  while Form15.Timer1.Enabled do
  Application.ProcessMessages;
  Application.CreateForm(TForm1, Form1);
  Form15.Hide;
  Form15.Free;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm13, Form13);
  Application.CreateForm(TForm14, Form14);
  Application.Run;
end.