>>724
厳密には
type TMyType = (
　mtFirst,
　mtSecond = TMyType(Ord(mtFirst) + 1)
);

では？キモくない？