Set result of functions calling RunError to avoid useless warnings

git-svn-id: trunk@34335 -

rtl/win64/classes.pp

@@ -54,6 +54,7 @@ uses
 function MakeObjectInstance(Method: TWndMethod): Pointer;
   begin
     runerror(211);
+    MakeObjectInstance:=nil;
   end;
 
 
@@ -66,6 +67,7 @@ procedure FreeObjectInstance(ObjectInstance: Pointer);
 function AllocateHWnd(Method: TWndMethod): HWND;
   begin
     runerror(211);
+    AllocateHWnd:=0;
   end;