FindText springt nicht zur gefundenen Zeile!

[smart]

Hallo Alle!

Ich habe hier einen FindText Code aus der Hilfe von Delphi. An sich arbeitet der Code einwandfrei. Aber wenn ich ein TRichEdit anstatt ein TMemo nehme findet der Code zwar den gesuchten Text, springt aber nicht dort hin. Mit ein TMemo klappt das einwandfrei. Was muss ich ändern damit es auch mit einer TRichEdit klappt?

Delphi-Quellcode:

Var
  I, J, PosReturn, SkipChars: Integer;
begin
  for I := 0 to Memo1.Lines.Count do
  begin
    PosReturn := Pos(FindDialog1.FindText,Memo1.Lines[I]);
    if PosReturn <> 0 then {gefunden!}
    begin
      Skipchars := 0;
      for J := 0 to I - 1 do
        Skipchars := Skipchars + Length(Memo1.Lines[J]);
      SkipChars := SkipChars + (I*2);
      SkipChars := SkipChars + PosReturn - 1;

      Memo1.SetFocus;
      Memo1.SelStart := SkipChars;
      Memo1.SelLength := Length(FindDialog1.FindText);
      Break;
    end;
  end;

Gruß
Heike