From 76e2ee99701b89837445a5b636d4507eb435f567 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 17 Dec 2024 21:41:08 +0100
Subject: [PATCH] * Small improvement in setting method prop, by Lipinast
 Lekrisov

---
 packages/rtl-objpas/src/inc/rtti.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index 898cc0a9a2..2f1c393b05 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -7313,7 +7313,7 @@ begin
     tkClass:
       SetObjectProp(TObject(Instance), FPropInfo, AValue.AsObject);
     tkMethod:
-      SetMethodProp(TObject(Instance), FPropInfo, TMethod(AValue.GetReferenceToRawData^));
+      SetMethodProp(TObject(Instance), FPropInfo, PMethod(AValue.GetReferenceToRawData)^);
     tkInterface:
       SetInterfaceProp(TObject(Instance), FPropInfo, AValue.AsInterface);
     tkFloat: