Moin dajuhsa,
das Problem kenn' ich, es lässt sich allerdings relativ leicht lösen.
Du müsstest nur einmal aller Datei der Reihe nach in eine TStringList laden, und dann wieder speichern.
Anschliessend passt es.
Um die Dateien durchzugehen:
FindFirst,
FindNext,
FindClose