Ändere doch mal die letzte Zeile Copyfile wie unten beschrieben und schaue dir die Strings an. Dann wirst du merken, dass deine Dateinamensangaben nicht passen. Du nimmst gleich den neuen Namen, anstatt den Quellnamen.
Delphi-Quellcode:
var
s1, s2: String;
....
s1 := CurrentFolder + '\' + ChangeFileExt(fName,'.txt');
s2 := NewFolder + ChangeFileExt(fName,'.txt');
if not CopyFile(PChar(s1), PChar(s2), FailIfExists)then
ShowMessage('Fehler beim Erstellen der Kopie!'#13#10 + SysErrorMessage(GetLastError));