TMemo: Text mit festem Zeilenumbruch speichern

[new4toms]

Problem:
Ich möchte eine Textdatei öffnen, nach ca. 70 Zeichen einen harten Zeilenumbruch haben und dann wieder (mit den harten Zeilenumbrüchen natürlich) speichern.

Lösung:
Ein Memo mit WordWrap, als Font Courier New (feste Zeichenbreite).
Breite von 70 Zeichen ermitteln und Memo.Width auf diesen Wert setzen.
Textdatei in das Memo laden.
Die Zeilen des Memo (einzeln/zeilenweise) in eine Stringlist kopieren und die Stringlist dann speichern. Da davon nix zu sehen sein soll, ist das Memo unsichtbar. Funzt problemlos.

Frage:
Geht das noch irgendwie "eleganter" oder mit weniger Aufwand mit den Standardkomponenten von Delphi5?

Schönen Vatertag noch!

[edit=sakura] [Klammern ersetzt] Mfg, sakura[/edit]