String suchen und Zeile löschen?

[smart]

Zitat von Khabarakh:

Dann hast du aber eine Leerzeile, nimm besser TStringList.Delete:

Delphi-Quellcode:

for i := Memo1.Lines.Count - 1 downto 0 do
  if Pos('123456', Memo1.Lines[i]) <> 0 then
    Memo1.Lines.Delete(i);

Ja, dass ist die beste Lösung. Habt vielen Dank für die Antworten.