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.