From 56553338c27bf33c3318c568beca9409d3923f94 Mon Sep 17 00:00:00 2001
From: lmbelo <lucas.belo@live.com>
Date: Tue, 1 Aug 2023 10:18:08 -0300
Subject: [PATCH] Navigating throughout class parents on field exposition

---
 Source/WrapDelphi.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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