unit uw4140;

interface

type
  TMyEnum = (meOne, meTwo, meThree);
  TMySubEnum = meOne .. meTwo;

implementation

end.