Fix crash in Demo31. Accessing DelphiObject properties without calling Adjust(@self) in WrapVclComCtrls.pas.

Author: pyscripter

Source/vcl/WrapVclComCtrls.pas

@@ -351,6 +351,7 @@ function TPyDelphiPageControl.GetHitTestInfoAt_Wrapper(
 
 function TPyDelphiPageControl.Get_ActivePage(AContext: Pointer): PPyObject;
 begin
+  Adjust(@Self);
   Result := Wrap(DelphiObject.ActivePage);
 end;
 
@@ -364,6 +365,7 @@ function TPyDelphiPageControl.Get_ActivePageIndex(
 {$IFNDEF FPC}
 function TPyDelphiPageControl.Get_Canvas(AContext: Pointer): PPyObject;
 begin
+  Adjust(@Self);
   Result := Wrap(DelphiObject.Canvas);
 end;
 {$ENDIF FPC}