type TEnum = (one, two); type TDer = class(TEnum) end; begin end.