Und immer schön lokale Zwischenvariablen verwenden!!
Das hilft beim Debuggen und mancht den Code klarer und besser.
Delphi-Quellcode:
var
filename : string;
begin
filename := UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\original.txt';
// sollte nun in filename ein Backslash fehlen oder zuviel sein, fällt das beim Debuggen sicher auf
...