[Red_Garry]

Код:

if Edit1.Text = '' then Exit;
  DataModule1.AdoTable1.Filter := Format('[f1] like '+#39+'%s%%'+#39, [Edit1.Text]);
  DataModule1.AdoTable1.Filtered := True;

Вот так работает! Спасибо за помощь!