Saját applikáció directory-jára szinte mindig szükség van, ha valamit ki akarunk menteni.

procedur
e TForm1.Button1Click(Sender: TObject); var 
a:string;
begin
a:=extractfilepath(application.exename);
end;