diff --git a/lcl/interfaces/wince/winceobject.inc b/lcl/interfaces/wince/winceobject.inc
index e5ecc3c120..df7b6673a6 100644
--- a/lcl/interfaces/wince/winceobject.inc
+++ b/lcl/interfaces/wince/winceobject.inc
@@ -548,7 +548,7 @@ begin
     LPSzClassName := @ClsName;
   end;
   
-  Result := Windows.RegisterClass(@WindowClass) <> 0;
+  Result := Windows.RegisterClassW(@WindowClass) <> 0;
 end;
 
 {------------------------------------------------------------------------------
diff --git a/lcl/interfaces/wince/wincewscontrols.pp b/lcl/interfaces/wince/wincewscontrols.pp
index 385a31531a..082c69f352 100644
--- a/lcl/interfaces/wince/wincewscontrols.pp
+++ b/lcl/interfaces/wince/wincewscontrols.pp
@@ -242,8 +242,9 @@ begin
 
       if Window = 0 then
       begin
-        Writeln('failed to create wince control, error: '+ IntToStr(GetLastError()));
-        raise exception.create('failed to create win32 control, error: '+IntToStr(GetLastError()));
+//        Writeln('failed to create wince control, error: '+ IntToStr(GetLastError()));
+        raise exception.create('failed to create win32 control, error: '+IntToStr(GetLastError())
+         + ' control: ' + WindowTitle);
       end;
     end;
     { after creating a child window the following happens: