diff --git a/rtl/wince/dynlibs.inc b/rtl/wince/dynlibs.inc
index d4ea800b8c..eb2060842d 100644
--- a/rtl/wince/dynlibs.inc
+++ b/rtl/wince/dynlibs.inc
@@ -63,14 +63,16 @@ Function GetLoadErrorStr: string;
 
 Var
   rc,c : integer;
+  w : widestring;
   
 begin  
   rc := GetLastError;
-  SetLength(Result,255);
-  C:=FormatMessageA(FORMAT_MESSAGE_FROM_SYSTEM,nil,rc,
+  SetLength(w,255);
+  C:=FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,nil,rc,
                  MakeLangId(LANG_NEUTRAL, SUBLANG_DEFAULT),
-                 @Result[1], 255,nil);
-  SetLength(Result,c);
+                 @W[1], 255,nil);
+  SetLength(w,c);
+  Result:=w;
 end;
 
 {$endif}