Suchfunktion

[smart]

Hallo Alle!

Ich habe mir hier eine Suchfunktion gebaut, welche aus einem TMemo einen bestimmten Text sucht.

Delphi-Quellcode:

procedure TBondruck.Button4Click(Sender: TObject);
Var
  I, J, PosReturn, SkipChars: Integer;
begin
  for I := 0 to Memo2.Lines.Count do
  begin
    PosReturn := Pos(Edit1.Text,Memo2.Lines[I]);
    if PosReturn <> 0 then {gefunden!}
    begin
      Skipchars := 0;
      for J := 0 to I - 1 do
        Skipchars := Skipchars + Length(Memo2.Lines[J]);
      SkipChars := SkipChars + (I*2);
      SkipChars := SkipChars + PosReturn - 1;

      Memo2.SetFocus;
      Memo2.SelStart := SkipChars;
      Memo2.SelLength := Length(Edit1.Text);
      Break;
    end;
  end;
end;

Klappt ganz gut. Wie kann ich nun erreichen, dass der gefundene Text immer in der ersten Linie erscheint?

Gruß
Heike