Fixed OS.Version for Delphi XE2

Resolved string typecast warning

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;

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