du kannst ja den relativen Pfad speichern. Aber für den aufruf von SaveToFile solltest du den relativen Pfad zu einem absoluten Pfad machen:
Delphi-Quellcode:
lPath := '.\datei.txt';
if (copy(lPath, 1, 2) = '.\') then
lPath := ExtractFileName(Application.ExeName) + copy(lPath, 3, Length(lPath));
SaveToFile(lPath);