Saját applikáció directory-ja

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

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