From 4d9a76cb356ca02ac278cd94948d4bc2bb85da26 Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Thu, 27 Feb 2014 09:26:55 +0000
Subject: [PATCH] X2UtNamedFormat compatibility with Delphi 2007

---
 X2UtNamedFormat.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/X2UtNamedFormat.pas b/X2UtNamedFormat.pas
index a8854c4..6483558 100644
--- a/X2UtNamedFormat.pas
+++ b/X2UtNamedFormat.pas
@@ -204,7 +204,9 @@ begin
         vtAnsiString:     name  := string(PChar(param.VAnsiString));
         vtWideChar:       name  := string(param.VWideChar);
         vtWideString:     name  := string(WideString(param.VWideString));
+        {$IF CompilerVersion >= 23}
         vtUnicodeString:  name  := string(UnicodeString(param.VUnicodeString));
+        {$IFEND}
       else
         raise Exception.CreateFmt('Parameter name at index %d is not a string value',
                                   [paramIndex div 2]);