pascal: enum_tricks