Wenn Du
reguläre Ausdrücke (auch ohne die SynEdit-Suite) einsetzen möchtest, könntest Du zB mit diesem Code
Result:= RegExp('\b\d{5}\b').Match(Memo1.Text);
feststellen, ob überhaupt eine Ziffernfolge der Länge von
als einzelnes Wort (bei Deiner Lösung würde auch etwas der Form "1234567" mit den Ziffern "12345" treffen, obwohl eigentlich eine siebenstellige Zahl vorhanden ist) im Text des Memos vorhanden ist.
Oder, falls Du vor
allen ggf vorhandenen "Postleitzahlen" (def. s.o.) einen Zeilenumbruch einfügen möchtest, etwas in der Art
Delphi-Quellcode:
with RegExp('\b\d{5}\b') do
Memo1.Text:= Replace(Memo1.Text', #13#13'$1', True);