type
  TSuit = (Hearts, Clubs, Diamonds, Spades);

var
  Character : char;
  Number    : Integer;
  Card      : TSuit;

begin
  // Мы можем увеличить символы
  Character := 'A';

  ShowMessage('Character : '+Character);
  Character := Succ(Character);
  ShowMessage('Character+1 : '+Character);

  // Мы можем увеличить числа
  Number := 23;

  ShowMessage('Number : '+IntToStr(Number));
  Number := Succ(Number);
  ShowMessage('Number+1 : '+IntToStr(Number));

  // Мы можем увеличить перечисления
  Card := Clubs;

  ShowMessage('Card начинается с Clubs');
  Card := Succ(Card);
  if Card = Hearts then ShowMessage('Card сейчас Hearts');
  if Card = Clubs then ShowMessage('Card сейчас Clubs');
  if Card = Diamonds then ShowMessage('Card сейчас Diamonds');
  if Card = Spades then ShowMessage('Card сейчас Spades');
end;