[Anchorte]

У меня есть некая база данных, текст вводится в Edit нужно сделать так чтобы при введение символов происходило фильтрование...
пробовал по аналогии с ComboBox'сом:

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if ComboBox1.Text='Все'
  then
    begin
     Table2.Filtered:=True;
     Table2.Filter:='Kod > 0';
    end
  else
    begin
     Table2.Filtered:=True;
     Table2.Filter:='Grup = ''' + ComboBox1.Text+'''';
    end;
end;

но так он ничего не выводит