* recordrtti needs to override getmethods. Fixes issue #40951

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

@@ -795,6 +795,7 @@ type
     FDeclaredMethods : TRttiMethodArray;
     FMethodsResolved : Boolean;
   protected
+    function GetMethods: TRttiMethodArray; override;
     procedure ResolveFields;
     procedure ResolveMethods;
     procedure ResolveProperties;
@@ -6121,6 +6122,11 @@ end;
 
 { TRttiRecordType }
 
+function TRttiRecordType.GetMethods: TRttiMethodArray;
+begin
+  Result:=GetDeclaredMethods;
+end;
+
 procedure TRttiRecordType.ResolveFields;
 Var
   Tbl : PExtendedFieldInfoTable;