Вопрос с Firebird Interbase (фильтрация)

[bablzz]

короче говоря, проблемы решился следующим способом:

procedure TForm1.Edit1Change(Sender: TObject);
begin
 IBTable1.Filtered:=false;
     S:=Edit1.Text;
     if S='' then IBTable1.Filtered:=false
     else IBTable1.Filtered:=true;
end;

procedure TForm1.IBTable1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept:=(Pos(S,DataSet['COUNTRY'])=1);
end;