Не пойму, что с фильтрацией

procedure TForm3.SpeedButton8Click(Sender: TObject);
var pole:shortstring;
begin
Case Combobox1.itemindex of
0:pole:='Doljnost';
1:pole:='Familiya';
2:pole:='Imya';
3:pole:='Data_rojdeniya';
4:pole:='Obrazovanie';
5:pole:='Semeinoe_polojenie';
end;
table1.filtered:=false;
table1.FilterOptions:=[FoNopartialcompare];
table1.filter:='pole''+edit2.Text+''';
table1.filtered:=true;
end;

Table1.Filter:='pole='+QuotedStr(edit2.Text);
Table1.Filtered :=true;

procedure TForm1.Edit2Change(Sender: TObject);
begin
Table1.Filter:= ComboBox1.Text+'='+QuotedStr(edit2.Text); //фильтр по полю из списка. Критерий поиска задается в текстовом поле
Table1.Filtered :=true; //фильтруем
if Length(Edit2.Text)=0 then //если поле поиска очищено
Table1.Filtered :=false; //возвращаем все записи
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox.ItemIndex<>-1 then //если в списке ничего не выбрано
Edit2.ReadOnly :=false; //то запрещаем ввод критерия поиска
end;

procedure TForm1.Create(Sender: TObject);
begin
Edit2.ReadOnly :=true;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox.ItemIndex<>-1 then //если в списке выбрано поле
Edit2.ReadOnly :=false; //то разрешаем ввод критерия поиска
end;