function MacroFuncProjVer(const {%H-}Param: string; const {%H-}Data: PtrInt;
                                   var {%H-}Abort: boolean): string;

  GlobalMacroList.Add(TTransferMacro.Create('ProjVer','',
                      lisProjectVer,@MacroFuncProjVer,[]));

  tr('ProjVer',lisProjectVer);

function TBuildManager.MacroFuncProjVer(const Param: string;
  const Data: PtrInt; var Abort: boolean): string;
const
  cParamNames: array of string = ('', 'major', 'minor', 'rev', 'build');
  cParamDefVals: array of string = ('0.0', '0', '0', '0', '0');
var
  i: integer;
begin
  for i := 0 to high(cParamNames) do
    if CompareText(Param, cParamNames[i]) = 0 then
    begin
      // check the project and whether the version is used
      result := cParamDefVals[i];
      if Project1 = nil then exit;
      if Project1.ProjResources = nil then exit;
      if Project1.ProjResources.VersionInfo = nil then exit;
      if Project1.ProjResources.VersionInfo.UseVersionInfo = false then exit;

      // return version or specified number
      with Project1.ProjResources.VersionInfo do
        case i of
          1: exit(IntToStr(MajorVersionNr));
          2: exit(IntToStr(MinorVersionNr));
          3: exit(IntToStr(RevisionNr    ));
          4: exit(IntToStr(BuildNr       ));
        else
          // return the full version number, discarding the zero revision and build
          if BuildNr <> 0 then
            exit(Format('%d.%d.%d.%d', [MajorVersionNr, MinorVersionNr, RevisionNr, BuildNr]))
          else if RevisionNr <> 0 then
            exit(Format('%d.%d.%d'   , [MajorVersionNr, MinorVersionNr, RevisionNr]))
          else
            exit(Format('%d.%d'      , [MajorVersionNr, MinorVersionNr]));
        end;
    end;
  result := ''; // invalid parameter
end;

  lisProjectVer = 'Project version';