+ Fix from Alexey Barkovoy for bug #3302

rtl/objpas/sysutils/sysstr.inc

@@ -1040,13 +1040,13 @@ begin
                     hs:=Args[doarg].VPChar
                 else
                   if CheckArg(vtPWideChar,false) then
-                    hs:=char(Args[doarg].VPWideChar^)
+                    hs:=Args[doarg].VPWideChar
                 else
                   if CheckArg(vtWideChar,false) then
-                    hs:=char(Args[doarg].VWideChar)
+                    hs:=Args[doarg].VWideChar
                 else
                   if CheckArg(vtWidestring,false) then
-                    hs:=ansistring(Args[doarg].VWideString)
+                    hs:=WideString(Args[doarg].VWideString)
                 else
                   if CheckArg(vtAnsiString,true) then
                     hs:=ansistring(Args[doarg].VAnsiString);
@@ -2234,7 +2234,10 @@ const
 
 {
   $Log$
-  Revision 1.20  2004-11-22 05:53:44  marco
+  Revision 1.21  2004-11-30 20:56:27  michael
+  + Fix from Alexey Barkovoy for bug 3302
+
+  Revision 1.20  2004/11/22 05:53:44  marco
    * fixed little 1.0.xism
 
   Revision 1.19  2004/11/21 19:33:20  marco