In Memo suchen und zur zeile springen

[BBoy]

Ich nutze folgenden Code um das Memo zu durchsuchen:

Delphi-Quellcode:

   for i := 0 to memo4.lines.Count-1 do begin
      if pos('test', memo4.lines[i]) <> 0 then begin
      // hier soll die routine hin wo mir die zeile anzeigt...
         break;
      end;
   end;

Er findet auch das gesuchte, aber nun möchte ich das die Zeile angeziegt und markiert wird in der das gesuchte gefunden wurde.
Kann mir bitte jemand sagen wie das geht? Danke.