Код:
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;
Admin: Пользуемся тегами!
2 раза щелкаешь на едит создается событие Edit1Change туда этот код, (dm - модуль данных, org_table - фильтруемый источник данных)