Eigentlich müsste es doch so passen
Delphi-Quellcode:
writeln ('Data = '+data);
writeln('');
writeln('');
writeln ('ParamStr = '+ParamStr(i));
RenameFile( ParamStr(i), ExtractFilePath(ParamStr(i)) + data + '.jpg' );
writeln('');
writeln('');
writeln ('Ausgabe = '+ ExtractFilePath(ParamStr(i)) + data + '.jpg');