RosettaCodeData/Task/Enumerations/Delphi/enumerations.delphi

type
  TFruit = (Apple, Banana, Cherry);

  TApe = (Gorilla = 0, Chimpanzee = 1, Orangutan = 5);