Generics: Wie Unterklasse von TObjectList erstellen?

[DCoderHH]

Hallo,

ich habe 2 Klassen: TMyObj und als Unterklasse davon TMySubObj. Zu TMyObj gibt es eine TObjectList: "TMyObjList". Zu TMySubObj soll es jetzt auch eine TObjectList geben, die aber nicht von TObjectList abgeleitet wird, sondern von TMyObjList. Wie stelle ich das an? So hab ichs mir vorgestellt, compiliert aber nicht:

Delphi-Quellcode:

  TMyObj = class(TObject)
  private
    FFoo: string;
  published
    property Foo: string read FFoo write FFoo;
  end;

  TMySubObj = class(TMyObj)
  private
    FBar: string;
  published
    property Bar: string read FBar write FBar;
  end;

  TMyObjList = class(TObjectList<TMyObj>)
  public
    procedure Example1;
  end;

  TMySubObjList = class(TMyObjList<TMySubObj>)  //TMyObjList mag der Compiler hier nicht
  public
    procedure Example2;
  end;