ObjectList in ObjectList

[Captnemo]

Hi,

ich möchte mir eine Klasse basteln, die selbst eine ObjectList beinhalten soll. Bzw. die Object in der der ObjectList sollten ggf. selbst auch eine ObjectListe beinhalten können.
Leider fehlt mir hierbei die Erfahrung mit Klassendesign.

Also so etwas wie:

Delphi-Quellcode:

Type
  TFahrer = class(TObject)
    nachname: string;
    vorname: string;
    alter: integer;
  end;

Type
  TAuto = class(TObject)
    Kennzeichen: string;
    Modell: string;
    Fahrer: TFahrer;
  end;

.
.
.
TMyAuto = class(TObjectList)
  protected
    function getItem(index: Integer): TAuto; virtual;
    procedure setItem(index: Integer; Auto: TAuto); virtual;
  public
    procedure items[index: Integer]: TAuto read getItem write setItem; default;
    .
    .
  end;

Jetzt kann ich mir die ObjectList mit

MyAuto:=TMyAuto.create; erzeugen.

Aber wie erzeuge ich in der Klasse TAuto die ObjectListe für TFahrer so, dass ich z.B. mit
MyAuto[0].Fahrer[1].Nachname zugreifen kann, oder mit MyAuto[0].Fahrer.Add(TestFahrer) Objecte hinzufügen kann?

Kann sein, dass ich mich jetzt hier nicht glücklich ausgedrückt habe, aber ich hoffe es ist deutlich geworden, was ich meine. Oder ist der Ansatz komplett falsch?