Filtrowanie tabeli (błąd)

Witam
próbuje fitrowac tabele przy pomocy tej procedury

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  data.adotable3.FilterOptions := [foCaseInsensitive];
  data.adotable3.Filtered := False;

  if edit1.Text <> '' then s := 'Nazwa = ''' + edit1.Text + '''';
  if edit2.Text <> '' then
  begin
    if s <> '' then s := s + ' AND ';
    s := s + 'wykonawca = ''' + edit2.Text + '''';
  end;

  if s <> '' then
  begin
    data.adotable3.Filter := s;
    data.ADOTable3.Filtered := True;
  end;

i po kliknięciu na button wyskakuje problem
Błąd o treści

filterOptions are not supported

co z tym zrobić

pozdrawiam

A poprzez SQL nie możesz tego przefiltrować?