Type Ableitung oder Parametereinschraenkung???

[DrTosh]

TType = (TT1, TT2, TT3, TT4, TT5, TT6, TT7);
TTypeNormal = (TT1, TT2, TT3, TT4, TT5, TT6); // Teilmenge von TType
TTypeSpezial = (TT5, TT6, TT7); // Teilmenge von TType

TNormal = class(TObject)
public
FType: TType;
Constructor Create(lType: TType);// nur TTypeNormal zulaessig
end;
TSpezial = class(TNormal)
public
Constructor Create(lType: TType);// nur TTypeSpezial zulaessig
end;

Constructor TNormal.Create([TT1, TT2, TT3, TT4, TT5, TT6]);// nur TTypeNormal zulaessig

Constructor TSepzial.Create([TT5, TT6, TT7]);// nur TTypeSpezial zulaessig


Ich weiss, das der Code oben Syntaktisch falsch ist.
Er ist nur fuer die Darstellung, was ich erreichen moechte.
Ich habe einen Type und zwei Teilmengen von diesem.
In dem Constructor moechte ich aber immer nur die passenden Typen als Auswahlmoeglichkeit anbieten.
Gibt es eine Moeglichkeit, wie ich das realisieren kann?

MfG DrTosh