Wie grosse Menge Zeilen einfach in TStringList übertragen?

[ReBoot]

Bei meinem derzeitigen Projekt will ich vier Textdateien aus dem Programm heraus abspeichern. Die Pfade sind bekannt (=werden ermittelt) und es geht mir nur noch darum, wie ich die Textdateien ablege. Und zwar wollte ich das über TStringList-Objekte lösen, bei denen ich SaveToFile aufrufe. Soweit ist noch alles gut, aber die Teile haben jeweils an die 200 Zeilen. Das ganze per Hand in den Quellcode zu übertragen ist ziemlich deprimierend. Kennt wer ne Möglichkeit, sowas elegant zu lösen?