[Paulao]

Esta es mi funcion que deberia traer el result en mi property

Código Delphi [-]
function TGeneralFiles.GetRet_Versao(NomeArq: string): string;
var
  VerInfoSize, VerValueSize, Dummy: DWORD;
  VerInfo: Pointer;
  VerValue: PVSFixedFileInfo;
  Maior, Menor, Release, Build: Word;
begin
  Result := '';

  VerInfoSize := GetFileVersionInfoSize( PChar(NomeArq), Dummy );
  GetMem( VerInfo, VerInfoSize );
  try
    GetFileVersionInfo( PChar(NomeArq), 0, VerInfoSize, VerInfo );
    VerQueryValue( VerInfo, '', Pointer(VerValue), VerValueSize );
    with VerValue^ do
    begin
      Maior := dwFileVersionMS shr 16;
      Menor := dwFileVersionMS and $FFFF;
      Release := dwFileVersionLS shr 16;
      Build := dwFileVersionLS and $FFFF;
    end;
  finally
    FreeMem( VerInfo, VerInfoSize );
  end;

  Result :=
    IntToStr(Maior) + '.' + IntToStr(Menor) + '.' +
    IntToStr(Release) + '.' + IntToStr(Build);
    FVersao := Result;
end;