2 Case Anweisungen in einem Variant-Record?

[thx.azrael]

Guten Morgen DPler,

Ich benötige einen Varianten-Record mit mehreren CASE-Anweisungen. Bis jetzt habe ich versucht einfach 2 CASE Anweisungen in einen Record zu Packen, jedoch sagt mir der Delphi Compiler das die Abfrage Variable der 2. CASE-Anweisung nicht deklariert sei. In diesem Record möchte ich insgesamt 11 verschiedene Objekttypen differenzieren können. Zum besseren Verständnis füge ich hier mal meine Record ein:

Delphi-Quellcode:

type TObjectSet = set of 0 .. 10;

type TrtModelItem = record
                          Case WithEdit: Boolean Of
                                      True: (Edit: TPbFloatEdit);
                                      False: ();
                          Case ObjectType: TObjectSet Of
                                            0: (Stream: TPbStream);
                                            .
                                            .
                                            .
                                            10: (Output: TPbOutputUnit);
                    end;

In der Delphi Hilfe steht nichts darüber drin, dass die Anzahl der CASE-Anweisungen in einem Variant-Record beschränkt ist. Ansonsten habe ich bei einer ersten spontanen Suche auch nichts dazu gefunden.
Falls jemand eine Idee hat wie das ganze funktionieren kann oder eine alternative zu einem Record hat bin ich natürlich auch für etwas neues offen.

Mfg

azrael