diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index 1e562255f4..4dd83704fc 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/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;