TClientDataset filter problem

[kerim80]

Hallo,
ich benutze delphi5 und Firebird 1.5.

Habe eine Adress TAbelle und im Programm greife ich auf diese Adresstabelle in form einer liste zu.
also ich habe eine Adressliste mit folgenden komponenten:

TDBGrid, das auf ein Tdatasource zugreift,
das wiederrum auf eine TClientDataset zugreift und das mit einem TDataSetProvider verknüpft ist.
und das TDatasetProvider greift auf einen TIBOQuery zu.
und diese liste hat eine filterfunktion die auch sonst immer funktioniert aber bei dem folgenden nicht!!!!

so:
ich habe 3 Adressen mit z.B. folgenden Namen özpolat, Özpolat und ÖZPOLAT drin.
wenn ich mit 'özpola' filtere dann findet er alle drei adressen aber wenn ich mit 'özpolat' filtere dann findet er keinen.

und folgenden Code benutze ich

Delphi-Quellcode:

procedure TBasisliste.sbfilterClick(Sender: TObject);
var f:string;
    i:integer;
begin
  inherited;
  f := edit1.text;
  if f = '' then
  begin
    cd.filter :='';
    cd.filtered:=false;
    sbfilter.down:=false;
  end
  else
  begin
      if sbfilter.down then
      begin
        cd.Filtered:=false;
        cd.Filter:='';

        for i := 0 to cd.Fields.Count-1 do
        begin
          if cd.fields[i] is TStringField then
          begin
            if cd.filter <> '' then cd.filter := cd.filter + ' OR ';
            cd.filter := cd.filter + 'UPPER('+cd.fields[i].FieldName + ') LIKE UPPER(' + #39 + '%'+f+'%'+#39+')';
          end;
        end;

        if cd.filter <> '' then cd.filtered := true
        else
        begin
            cd.filtered := false;
            sbfilter.down:=false;
        end;
      end
      else
      begin
        cd.filter :='';
        cd.filtered:=false;
        sbfilter.down:=false;
      end;
  end;
end;

wenn mir einer dabei helfen oder einen besseren vorschlag hat bin sehr dankbar.