Код:
procedure TPokupateli.Edit1Change(Sender: TObject);
begin
if (edit1.text<>'') then
begin
dm.org_table.Filter:='(Название LIKE '''+edit1.Text+'%'')';
dm.org_table.Filtered:=true;
end
else
dm.org_table.Filtered:=false;
end;
Использую такой метод, пока проблем не было
