RichEdit und FindDialog

[Davidlocke13]

Und wieder habe ich ein Problem !

Ich möchte in meinem RichEdit über einen FindDialog suchen und dafür habe ich folgende Prozedur:

Delphi-Quellcode:

procedure TForm1.FindDialog1Find(Sender: TObject);
var
    Donde:integer;
 begin
   with RichEdit1 do
   begin
     Donde:=FindText(FindDialog1.FindText,
                     SelStart+1,
                     GetTextLen,
                     [stWholeWord]-[stWholeWord]);
     if Donde=-1
       then ShowMessage(FindDialog1.FindText + ' nicht gefunden!')
       else begin
              SetFocus;
              SelStart:=Donde;
              SelLength:=Length(FindDialog1.FindText);
            end;
   end;
end;

Nur mein Programm meint es kann nichts finden !
Wo ist da mein Fehler ?

LG