Merge pull request #66 from Embarcadero/expose_members

Navigating throughout class parents on field exposition

Author: checkdigits

Source/WrapDelphi.pas

@@ -3624,7 +3624,7 @@ class procedure TPyDelphiObject.ExposeFields(const AClass: TClass;
         if TPythonDocServer.Instance.ReadMemberDocStr(
           LClass.ClassInfo, LRttiField, LDocStr) then
             LExposedField.DocString := AnsiString(LDocStr);
-        LClass.ClassParent;
+        LClass := LClass.ClassParent;
       end;
 
       //Adds the Python attribute