Delphi - Enumerators

 type
   TSuit = (Hearts, Diamonds, Clubs, Spades);   // Declaração do tipo
 var
   suit : TSuit;                                // Definição de uma variável do tipo
 begin
   suit := Clubs;                               // Setando valores
 end;