In TRichEdit Text Suchen?

[smart]

Ich möchte aus einem Text in TRichEdit eine Stringreihenfolge suchen. Ich habe mir diesen Code zusammengestellt. Es wird auch gefunden, aber nicht an der Stelle gescrollt an der gefunden wird. Was mache ich da falsch?

Delphi-Quellcode:

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

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