Wow hab ich eine coole Lösung gefunden... und das SELBER!
Also 'n' kenne ich doch. Da es schon oben in der Funktion hochgezählt wurde, zähle ich es runter und packe das Ende der erstellten Datei in 'str1' - (1).txt, dann die aktuelle Nummer der Datei in 'str2' - (2).txt
In FileName ersetze ich (1).txt durch (2).txt und fertig.
Delphi-Quellcode:
str1:='(' + IntToStr(n-1) + ')' + '.txt';
str2:='(' + IntToStr(n) + ')' + '.txt';
FileName:=StringReplace(FileName, str1, str2, [rfReplaceAll]);
Nur 3 Zeilen Arbeit