function MyVersion: String;
var
  Buffer    : String;
  fInfoSize : DWORD;

  function InitVersion : boolean;
  var
    FilenamePointer : PChar;
  begin
    Result          := True;
    FilenamePointer := PChar(Application.ExeName);
    fInfoSize       := GetFileVersionInfoSize(FilenamePointer, fInfoSize);
    IF fInfoSize >  0  then
    begin
      SetLength(Buffer, fInfoSize);
      IF not GetFileVersionInfo(FilenamePointer,  0 , fInfoSize, PChar(Buffer)) then
      begin
        Result := False;
      end;
    end; //if
  end; //InitVersion

  function GetVersion(whatToGet : String) : string;
  var
    tmpVersion : String;
    Len, Len2  : DWORD;
    Value      : PChar;
    temp       : PLongInt;
    tempStr    : String;
  begin
    Result := '';
    IF fInfoSize >  0  then
    begin
      SetLength(tmpVersion,  200 );
      Value := @tmpVersion;
      {retrieves translation information (used to retrive strings) :}
      VerQueryValue(PChar(Buffer), '\VarFileInfo\Translation', Pointer(temp), Len2);
      tempStr := Format('%s%.4x%.4x\%s%s', ['\StringFileInfo\', LoWord(temp^), HiWord(temp^), whattoget, # 0 ]);
      {string retrieval :}
      IF VerQueryValue(PChar(Buffer), PChar(tempStr), Pointer(Value), Len) then
        Result := Value;
    end; // if
  end; //getversion

begin
  {initialization :}
  Buffer := '';
  try
    InitVersion;
    result:= GetVersion('FileVersion');
  except
    Result := '';
  end;
end;