ICQ Log Viewer durch Syntax Hightlighting

[Stony2k]

So, ich habe nun diese Funktion gefunden

Delphi-Quellcode:

procedure TForm1.SearchFind1FindDialogFind(Sender: TObject);
var
  I, J, PosReturn, SkipChars: Integer;
begin
  for I := 0 to Memo1.Lines.Count do
  begin
    PosReturn := Pos(SearchFind1.Dialog.FindText,Memo1.Lines[I]);
    if PosReturn <> 0 then {found!}
    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(SearchFind1.Dialog.FindText);
      Break;
    end;
  end;

Diese Funktion funktioniert auch soweit, nur das Problem ist, dass das "weitersuchen" nicht funktioniert.
Kann mir wer sagen, wie ich das mit dem "weitersuchen" hibekommen kann?