Where is the executable of yours application

Method 1 :

   ExtractFilePath ( Application.ExeName );

Method 2 :

ExtractFilePath ( ParamStr ( 0 ) );