From fac7c21b9b95ef254c27c365ddb218817da8c777 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Fri, 19 Jul 2024 16:05:09 +0200
Subject: [PATCH] * Small correction in property resolve

---
 packages/rtl-objpas/src/inc/rtti.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index 212514f12c..f4486687ce 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -5916,7 +5916,10 @@ begin
         Inc(IdxCount);
         obj := GRttiPool[FUsePublishedOnly].GetByHandle(TP);
         if Assigned(obj) then
-          FProperties[I]:=obj as TRttiProperty
+          begin
+          Prop:=obj as TRttiProperty;
+          FProperties[I]:=Prop;
+          end
         else
           begin
           Prop:=TRttiProperty.Create(Self, TP);
@@ -5927,6 +5930,7 @@ begin
       Prop.FVisibility:=MemberVisibilities[Info^.Visibility];
       Prop.FStrictVisibility:=Info^.StrictVisibility;
       end;
+    FPropertiesResolved:=True;
   finally
     if Assigned(List) then
       FreeMem(List);