Wort suchen und markieren in einem TMemo

[Noobmaster]

Hallo Leute!

Folgenden Code habe ich mir nach Internetrecherche zusammengebaut. Er soll in einem Memo ein bestimmtes Wort suchen und die gesamte Zeile, in der dieses Wort auftaucht markieren.
Irgendwie macht er das aber nur für die ersten Zeilen, danach werden Zeichen aus der Zeile davor mitmarkiert.

Delphi-Quellcode:

     //Zeile im Memo ermitteln
     Zeile := 0;
     while Pos(Suchtext,MemoWortbaum.Lines[Zeile]) = 0 do
     begin
        Inc(Zeile);
     end;
     //Das wievielte Zeichen im Memotext ist der Anfangsbuchstabe des Wortes?
     StringPos := 0;
     for i := 0 to Zeile - 1 do
     begin
        StringPos := StringPos + Length(MemoWortbaum.Lines[i]);
     end;
     //Markieren
     MemoWortbaum.SelStart :=  StringPos;
     MemoWortbaum.SelLength := Length(MemoWortbaum.Lines[Zeile]);
     MemoWortbaum.SetFocus;

Danke schonmal-