[Appolon]

Тебе тоже доброго времени суток!!

Если у тебя поле название текстовое тогда правильнее будет написать проседуру вот так:

Код:

procedure TForm1.NazFilterChange(Sender: TObject);
begin
  If Length(NazFilter.Text)>0 then
   begin
    ADOTable1.Filter:='Название like '+#39+NazFilter.Text+#42+#39;
    ADOTable1.Filtered:=true;
   end
  else
   ADOTable1.Filtered:=false;
end;

,где #39-это апостроф, а #42-это звездочка.

что касаемо нескольки полей, то по идее вот:

ADOTable1.Filter:='Название like '+#39+NazFilter.Text+#42+#39+' and Название2 like '+#39+NazFilter.Text+#42+#39+' and Название3 like '+#39+NazFilter.Text+#42+#39+' and Название4 like '+#39+NazFilter.Text+#42+#39;


Удачи!!