delphi – 如何在TVirtualInterface TVirtualInterfaceInvokeEvent中获取(Method：TRttiMethod)的所有权属性？

我如何在TVirtualInterface类的OnInvoke方法中获得Method：TRttiMethod的所有权属性？

我有这个界面：

IPerson = interface(IInvokablE)
   ['{45CE428C-F880-4D61-A2C1-0F3CB47130B5}']
   procedure SetName(const Value: String);
   function GetName(): String;

   [TEntityField('Field Name Here')]
   property Name: String read GetName write SetName;
end;

而这堂课：

type
   TVirtualEntity<T: IInvokable> = class(TVirtualInterfacE)
   public
      constructor Create(); reintroduce; overload;
   end;

constructor TVirtualEntity<T>.Create;
begin
   inherited Create(TypeInfo(T));
   Self.onInvoke :=
      procedure(Method: TRttiMethod; const Args: TArray<TValue>; out Result: Tvalue)
      var
         attributes: TArray<TCustomAttribute>;
         attributesmanager: TAttributesmanager;
         entityFieldAttribute: TEntityField;
      begin
         attributesmanager := TAttributesmanager.Create(Method.GetAttributes);
         try                
            if attributesmanager.HasAttribute<TEntityField>() then
            begin
               Result := attributesmanager.GetAttribute<TEntityField>.FieldName;
            end;

         finally
            attributesmanager.Free;
         end;
      end;
end;

我想获得方法的TRttiProperty：TRttiMethod,但是如何？
如果我将界面更改为：

IPerson = interface(IInvokablE)
   ['{45CE428C-F880-4D61-A2C1-0F3CB47130B5}']
   procedure SetName(const Value: String);
   [TEntityField('Field Name Here')]
   function GetName(): String;

   property Name: String read GetName write SetName;
end;

代码工作,但我想用这样的用户界面：

IPerson = interface(IInvokablE)
   ['{45CE428C-F880-4D61-A2C1-0F3CB47130B5}']
   procedure SetName(const Value: String);
   function GetName(): String;

   [TEntityField('Field Name Here')]
   property Name: String read GetName write SetName;
end;