ObjectList mit eigenen Funktionen erweitern?!

[Yheeky]

Hey,

angenommen ich habe folgende objektorientierte Struktur:

Delphi-Quellcode:

TCustomObjectList = class(TObjectList)
  protected
    function getItem(Index: Integer): TKlasse; virtual;
    procedure setItem(Index: Integer; Objekt: TKlasse); virtual;
  public
    function Add(Objekt: TKlasse): Integer; virtual;
    function Remove(Objekt: TKlasse): Integer; virtual;
    function IndexOf(Objekt: TKlasse): Integer; virtual;
    procedure Insert(Index: Integer; Objekt: TKlasse); virtual;
    property Items[index: Integer]: TKlasse read getItem write setItem; default;
    property PCs[index:Integer]:TPCs read getPCItem write setPCItem;
  end;

Wie folgt erstelle ich eine Liste:

customList := TCustomObjectList.Create; Ich kann ja nun die Items über die Eigenschaft .Count zählen. Wie jedoch kann ich die Einträge in PCs zählen? Muss ich mir da eine eigene Routine schreiben oder wie kann ich das anstellen? Hat jemand vielleicht ein Beispiel für mich?

Wäre super!