Text Datei teilen

[Crazymodder]

Mg joa zu deiner Idee!
var Quelle, Ziel: TStringList;
Summe := 0;
Start := 0;
for (alle Zeilen der Quelle)
addiere die Länge der aktuellen Zeile zur Summe
kopiere die aktuelle Zeile nach Ziel

Da wie macht man das halt mit der Summe! Oder bei der for Schleife. Also wäre sehr nett wenn ich dazu noch einige Info's bekommen könnte.
Ich hoffe das das nicht zu viel arbeit macht. Danke im Vorraus
Crazymodder