Im Zweifel erst mal auf
Unicode schieben und folgendes versuchen?
Delphi-Quellcode:
var
osVerInfo: TOSVersionInfoA;
majorVer, minorVer: Integer;
begin
{ set operating system type flag }
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfoA);
if GetVersionExA(osVerInfo) then