String suchen und Zeile löschen?

[malo]

Mir fällt grade nur der Umweg ein, jede Zeile des Memos einzeln zu durchsuchen. Also etwa so:

Delphi-Quellcode:

for i := 1 to Memo1.Lines.Count - 1 do // mit der Nummerierung hab ich es nicht so, da müsste man nochmal genauer schauen
  begin
    If Pos('123456', Memo1.Lines[i]) <> 0 Then Memo1.Lines[i] := '';
  end;

//edit: Abschließender Delphi-Tag eingefügt

//Edit2: Code nochmal überprüft, und eine Stelle korrigiert