[Страдалецъ]

Ну а так?

Код:

procedure TForma1.Edit1Change(Sender: TObject);
begin
if Edit1.Text = '' then Exit;
 DataModule1.AdoTable1.Filter := Format('[f1] like ''%%%s%%''',[Edit1.Text]);
 DataModule1.AdoTable1.Filtered := True;
end;