String suchen und Zeile löschen?

[smart]

Ich möchte ein TMemo nach einem String durchsuchen. Wenn der String gefunden wurde, sollt die Zeile in der der String vorkommt gelöscht werden. Wie kann man im TMemo eine ganze Zeile löschen?
If Pos('123456', Memo1.Text) <> 0 Then Zeile_löschen...;