Wenn dir eigentlich alles egal ist, dann setze WordWrap auf True und füge deinen Text immer am Anfang ein.
Den rest macht das Memo alleine.
Delphi-Quellcode:
// S = dein neuer hinzuzufügender Text
Memo1.SelStart := 0;
Memo1.SelText := S + ' ';
Ein Therapeut entspricht 1024 Gigapeut.