Willkommen in der
DP 
Wenn ich dich richtig verstehe suchst du einen ersatz für
extractFilePath(PAramStr(0));
?
IMO sollte es so gehen:
savetofile(Application.ApplicationPath+'ordner\dateiname.txt')
PS: wenn das eine Delphi8 frage ist, dann ist dies das richtige forum...ansonsten eher nicht
mâxîmôv.
{KDT}