Service Pack do Windows

var
   WindowsData : TOSVersionInfo;
   (* Reference Information
   TOSVersionInfoA = record
      dwOSVersionInfoSize : DWord;
      dwMajorVersion : DWord;
      dwMinorVersion : DWord;
      dwBuildNumber : DWord;
      dwPlatformID : DWord;
      szCSDVersion : array[0..127] of AnsiChar;
      end;
   TOSVersionInfo = TOSVersionInfoA; *)

   OSVersion : string;
   OSBuild : string;
   OSServicePack : string;

 with WindowsData do
      begin
      dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
      GetVersionEx(WindowsData);
      OSVersion := IntToStr(dwMajorVersion) +´.´+ IntToStr(dwMinorVersion);
      OSBuild := IntToStr(dwBuildNumber);
      OSServicePack := StrPas(szCSDVersion);
      end;