* Patch from Lipinast Lekrisov to implement setting method-type properties. Fixes issue #40970

packages/rtl-objpas/src/inc/rtti.pp

@@ -6604,6 +6604,8 @@ begin
       SetOrdProp(TObject(Instance), FPropInfo, AValue.AsOrdinal);
     tkClass:
       SetObjectProp(TObject(Instance), FPropInfo, AValue.AsObject);
+    tkMethod:
+      SetMethodProp(TObject(Instance), FPropInfo, TMethod(AValue.GetReferenceToRawData^));
     tkInterface:
       SetInterfaceProp(TObject(Instance), FPropInfo, AValue.AsInterface);
     tkFloat: