From 2ff0f544d3dbbc3f6196ec0b4ba1a069b1efd706 Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Wed, 2 Jul 2014 13:44:16 +0000
Subject: [PATCH] Unicode compatibility for App.Version.Strings

---
 X2UtApp.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/X2UtApp.pas b/X2UtApp.pas
index 812167c..9e4f913 100644
--- a/X2UtApp.pas
+++ b/X2UtApp.pas
@@ -199,7 +199,7 @@ uses
   Windows;
 
 const
-  tkStrings = [tkString, tkLString, tkWString];
+  tkStrings = [tkString, tkLString, tkWString{$IF CompilerVersion >= 23}, tkUString{$IFEND}];
 
 var
   GApp:       TX2App;
@@ -359,8 +359,8 @@ begin
             GetPropList(Strings.ClassInfo, tkStrings, pProps);
 
             for iProp := 0 to iCount - 1 do begin
-              if VerQueryValueA(pBuffer, PAnsiChar(cName + AnsiString('\') + pProps^[iProp]^.Name),
-                                Pointer(pValue), dVer) then
+              if VerQueryValue(pBuffer, PChar(string(cName) + '\' + pProps^[iProp]^.Name),
+                               Pointer(pValue), dVer) then
                 SetStrProp(Strings, pProps[iProp], pValue);
             end;
           finally