diff --git a/X2UtApp.pas b/X2UtApp.pas
index 9e4f913..039346a 100644
--- a/X2UtApp.pas
+++ b/X2UtApp.pas
@@ -359,7 +359,7 @@ begin
             GetPropList(Strings.ClassInfo, tkStrings, pProps);
 
             for iProp := 0 to iCount - 1 do begin
-              if VerQueryValue(pBuffer, PChar(string(cName) + '\' + pProps^[iProp]^.Name),
+              if VerQueryValue(pBuffer, PChar(string(cName) + '\' + string(pProps^[iProp]^.Name)),
                                Pointer(pValue), dVer) then
                 SetStrProp(Strings, pProps[iProp], pValue);
             end;
diff --git a/X2UtOS.pas b/X2UtOS.pas
index 6fc78b7..c171fd2 100644
--- a/X2UtOS.pas
+++ b/X2UtOS.pas
@@ -14,6 +14,7 @@ uses
   Windows;
 
 type
+  {$IF CompilerVersion < 23}
   TOSVersionInfoEx = packed record
     dwOSVersionInfoSize: DWORD;
     dwMajorVersion: DWORD;
@@ -27,6 +28,7 @@ type
     wProductType: Byte;
     wReserved: Byte;
   end;
+  {$IFEND}
 
 
   //:$ Enumeration of the recognized Operating System versions