[v1s2222]

Вот даже продемонстрирую:

Код:

    property ExeName: string read GetExeName;

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