Menyimpan Directory Nama Exe yang sedang berjalan kedalam sebuah variabel

Misalkan kita akan menyimpan alamat directory dimana program exe kita berjalan ke variabel lokfile.

procedure TForm1.FormCreate(Sender: TObject);
begin
     lokfile:=ExtractFilePath(application.ExeName);
End;