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]);