procedure GetFileVersion(FileName: string; var Major1, Major2,
  Minor1, Minor2: Integer);
 var
  Info: Pointer;
  InfoSize: DWORD;
  FileInfo: PVSFixedFileInfo;
  FileInfoSize: DWORD;
  Tmp: DWORD;
 begin
  InfoSize := GetFileVersionInfoSize(PChar(FileName), Tmp);
  if InfoSize = 0 then
  //Файл не содержит информации о версии
  else
  begin  
  GetMem(Info, InfoSize);
  try
  GetFileVersionInfo(PChar(FileName), 0, InfoSize, Info);
  VerQueryValue(Info, '\', Pointer(FileInfo), FileInfoSize);
  Major1 := FileInfo.dwFileVersionMS shr 16;
  Major2 := FileInfo.dwFileVersionMS and $FFFF;
  Minor1 := FileInfo.dwFileVersionLS shr 16;
  Minor2 := FileInfo.dwFileVersionLS and $FFFF;
  finally
  FreeMem(Info, FileInfoSize);
  end;
  end;
 end;