Aufzählungstypen vereinigen

[blablab]

Hallo!

Ich möchte eine Aufzählung definieren, die aus mehreren anderen Aufzählungen besteht.

Delphi-Quellcode:

type
   TTeilmengeA = (a1, a2, a3);
   TTeilmengeB = (b1, b2, b3);
   TAll = TTeilmengeA + TTeilmengeB;

Da das leider nicht geht hab ich es so versucht:

Delphi-Quellcode:

type
   TAll = (a1, a2, a3, b1, b2, b3);
   TTeilmengeA = a1..a3;
   TTeilmengeB = b1..b3;

Am Schluss möchte ich dann eine Variable vom Typ TAll haben und überprüfen ob sie sich in der Teilmenge TTeilmengeA oder TTeilmengeB befindet. In etwa so:

Delphi-Quellcode:

var typ: TAll;
if typ in TeilmengeA then begin
...

Das einzige was mir dazu einfällt ist:

Delphi-Quellcode:

var typ: TAll;
if (typ >= Low(TTeilmengeA)) and (typ <= High(TTeilmengeA)) then begin ...

Gibt es hier noch eine bessere Lösung?

Grüße
blablab