е требование обнаружить Windows 10 или более позднюю версию во время установки. для этого я должен создать следующую функцию.

Это дает мне 603 (значение AS VersionNT) в Windows 10 и Windows 8.1. Это не правильно.

Есть ли другой способ добиться этого?

function BOOL isWindows10OrGreater()
 STRING svWindowsValue;
 NUMBER nWindowsValue;
 NUMBER nBuffer;
begin
     try
       nBuffer = 256;
       MsiGetProperty(ISMSI_HANDLE,"VersionNT",svWindowsValue,nBuffer);
       StrToNum(nWindowsValue,svWindowsValue);
       return (nWindowsValue >= 603);
     catch
       return FALSE;
    endcatch;
 end;