Annotationen auslesen

[amoibos]

Im Buch/Blog von Nick Hodges werden Attribute als Meta-Daten für RTTI genutzt. Daraus wollte ich Annotationen ableiten, d.h. in meinem Beispiel übergebe man ein Objekt, filtert die Methoden und extrahiert den angegebenen Wert. Nur irgendwie scheint er nichts finden zu wollen. Ein wenig Code zur Veranschaulichung:

Delphi-Quellcode:

blublub(Instance : TObject);
var
  Context: TRTTIContext; 
  ObjectType: TRttiType;
  Methods: TArray<TRttiMethod>;
  Attribute: TCustomAttribute;
  i: integer; 
  ModuleState: TScheduleStates;  //Enum
begin
  ObjectType := Context.getType(Instance.ClassType);
  Methods := ObjectType.GetMethods;
  for i := Low(Methods) to High(Methods) do
  begin
    for Attribute in Methods[i].GetAttributes do
    begin
      if not (Attribute is TBaseState) then continue;
      ModuleState := TBaseState(Attribute).State;
[...]

Als Instance wird das Objekt übergeben und die unterschiedlichen Klassen werden von TBaseState abgeleitet, welche zus. noch ein Attribut ModuleState besitzen.
In der Praxis iteriert er nur über i, ins innere der zweiten For-Schleife kommt er gar nicht, jemand eine Idee woran das liegt? Leider ist der Kram im Debugger äußerst schwer zu lesen um daraus was abzuleiten.