RTTI, не могу прочитать атрибуты

unit uMain;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons,
  System.Rtti;
 
type
  TAttribute = class(TCustomAttribute)
  private
    FName: string;
    FAge: integer;
    constructor Create(AName: string; AAge: integer);
    procedure SetAge(const Value: integer);
    procedure SetName(const Value: string);
  published
    property Name: string read FName write SetName;
    property Age: integer read FAge write SetAge;
  end;
//
 
//  {$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}
  TSomeClass = class
  public
    [TAttribute('SomeName', 39)]
    procedure someProcedure(const s: string);
    [TAttribute('AnotherName', 37)]
    procedure anotherProcedure(const s: string);
  end;
 
  TMain = class(TForm)
    bStart: TBitBtn;
    Memo: TMemo;
    procedure bStartClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Main: TMain;
 
implementation
 
{$R *.dfm}
 
{ TMyAttribute }
 
constructor TAttribute.Create(AName: string; AAge: integer);
begin
  FName := AName;
  FAge := AAge;
end;
 
procedure TAttribute.SetAge(const Value: integer);
begin
  FAge := Value;
end;
 
procedure TAttribute.SetName(const Value: string);
begin
  FName := Value;
end;
 
{ TSomeClass }
 
procedure TSomeClass.anotherProcedure(const s: string);
begin
//
end;
 
procedure TSomeClass.someProcedure(const s: string);
begin
  //
end;
 
procedure TMain.bStartClick(Sender: TObject);
var
  ctx: TRttiContext;
  t: TRttiType;
  m: TRttiMethod;
  a: TCustomAttribute;
begin
  Memo.Lines.Clear;
  ctx := TRttiContext.Create;
  try
    t := ctx.GetType(TSomeClass);
    for m in t.GetMethods do
    begin
      for a in m.GetAttributes do // << AV вылетает здесь
      begin
        if a is TAttribute then
        begin
          Memo.Lines.Add(m.Name);
         // Memo.Lines.Add(Format('Method = %s; Attribute = %s, Name = %s, Age = %d', [m.Name, a.ClassName, TMyAttribute(a).Name, TMyAttribute(a).Age]));
//          Memo.Lines.Add(m.Name, a.ClassName);
        end;
      end;
    end;
  finally
    ctx.Free;
  end;
end;
 
end.