diff --git a/Source/WrapDelphi.pas b/Source/WrapDelphi.pas
index e4591eae..9b4d5f2e 100644
--- a/Source/WrapDelphi.pas
+++ b/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