[Appolon]

Данная тема не однократно обсуждалась на форуме. Вы бы прежде чем тему создавать поискали по форуму, а потом спрашивали бы если ответ не нашли.

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
 If Length(Edit1.Text)>0 then
   begin
    ADOTable1.Filter:='<Имя поля> like '+#39+Edit1.Text+#42+#39;
    ADOTable1.Filtered:=True;
   end
 else
    ADOTable1.Filtered:=False;
end;