Mendapatkan Direktori Aplikasi delphi 2010

Para programming VB pasti bisa mendapatkan direktori aplikasi dengan perintah App.path Bagaimana jika menggunakan Delphi pasti akan bingung berikut saya kan berikan kode untuk mendapatkan direktori aplikasi.

procedure TForm1.FormCreate(Sender: TObject); 
var apppath: string; 
begin 
  getdir(0,apppath); 
  messagedlg( apppath , mtinformation, [mbok], 0); 
end;

yang perlu diperhatikan adalah baris 2 dan 4. baris 2 digunakan untuk membuat variabel dengan type string, kemudian baris 4 digunakan untuk mendapatkan direktori dan menyimpan pada variabel apppath. Semoga info ini dapat bermanfaat bagi anda.