property ExeName: string read GetExeName; function GetExeName: string; И вот эта функция: function TApplication.GetExeName: string; begin Result := ParamStr(0); end;