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