TDimState = (
  dmClosed,
  dmOpen,
  dmDrilled,
  dmPaged,
  dmNone
);

enum TDimState {
  dmClosed,
  dmOpen,
  dmDrilled,
  dmPaged,
  dmNone
};