Um den Ordner zu erstellen, kannst du so vorgehen:
Delphi-Quellcode:
If not DirectoryExists(Application.ApplicationPath + 'Unterordner1') then
Mkdir(Application.ApplicationPath + 'Unterordner1');
savetofile(Application.ApplicationPath + 'Unterordner1' + '\' + 'dateiname.txt')