Generics, dynamische Listen und Kinds

[pustekuchen]

Hallo zusammen,

ich überlege mir grade für ein neues Projekt die Klassenstruktur und die vorgehensweise und habe dabei ein paar Probleme mit den Generics.

Es ist folgendermaßen:

Ich habe eine Aufzählung:

TObjectKind = (okNone, okFoo, okBar); Für Foo und Bar gibt es auch eigene Klassen TFoo, TBar.

Nun möchte ich in einem weiteren Klasse den ObjektKind und eine TObjectList speichern. Dabei soll dann je nach ObjektKind eine Liste von diesem Typ erzeugt werden.

Delphi-Quellcode:

TMain = class(TObject)
private 
 FObjectKind: TObjectKind;
 FList: TObjectList<T??>; // Wie muss es hier deklariert werden?
public
 property List: TObjectList<T??> read FList write FList; // Und hier?
 constructor Create(AObjectKind: TObjectKind);
end;

implementation
constructor TMain.Create(AObjectKind: TObjectKind);
begin
 FObjectKind = AObjectKind;
 // Hier soll je nach ObjectKind dann die Liste erstellt werden 
 case FObjectKind of
  okFoo: FList := TObjectList<TFoo>;
  okBar: FList := TObjectList<TBar>;
end;
end;

Ich würde es gerne so machen, da das ganze dynamisch sein soll, wenn mal der ObjektKind erweitert wird.
Und den Zugriff auf die Listen vereinfachen, indem dann in einer anderen Klasse eine List<TMain> existiert in der alle Liste nach dem ObjectKind vorhanden sind.

Und wie könnte man das ganze mit einem TDictionary machen.

TDictionary<TObjectKind ,TObjectList<T??>>; // Für TFoo, TBar ?
Ich hoffe ich habe mich verständlich ausgedrückt Ich freue mich auf eure Antworten.

lg
pustekuchen