if CheckWin32Version(5) then
I am now using this function instead and everything works fine:
function FixedCheckWin32Version(AMajor: Integer; AMinor: Integer = 0): Boolean;
Result := (AMajor < Win32MajorVersion) or
((AMajor = Win32MajorVersion) and
(AMinor <= Win32MinorVersion));
Just a side-note: This was fixed in Delphi 7 and above. Of course, if you're using D6, you'll need to use this.
The opinions expressed herein are my own personal opinions and do not represent
my employer's view in any way.