function GetFileVersion(const FileName: String): TVersionInfo;
var
   VerInfoSize : Integer;
   VerValueSize : DWord;
   Dummy : DWord;
   VerInfo : Pointer;
   VerValue : PVSFixedFileInfo;

begin
  //Größe des Datei-Version-Info auslesen
  VerInfoSize := GetFileVersionInfoSize(PChar(Filename), Dummy);

  //Größe vorhanden?
  If VerInfoSize <> 0 then
    begin
      //Speicher setzen
      GetMem(VerInfo, VerInfoSize);
      try
        //Version auslesen
        If GetFileVersionInfo(PChar(Filename), 0, VerInfoSize,VerInfo) then
          If VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize) then
            begin
              Result.Major := VerValue^.dwFileVersionMS shr 16;
              Result.Minor := VerValue^.dwFileVersionMS and $FFFF;
              Result.Release := VerValue^.dwFileVersionLS shr 16;
              Result.Build := VerValue^.dwFileVersionLS and $FFFF;
            end;
      finally
        //Speicher freigeben
        FreeMem(VerInfo, VerInfoSize);
      end;
    end;
end;