type
  TSuit = (Hearts, Clubs, Diamonds, Spades);
var
  Character : char;
  Number    : Integer;
  Card      : TSuit;

begin
  // Мы можем приращивать символы
  Character := 'A';

  ShowMessage('Символ : '+Character);
  Inc(Character);
  ShowMessage('Символ+1 : '+Character);

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

  ShowMessage('Число : '+IntToStr(Number));
  Inc(Number, 5);
  ShowMessage(Число+5 : '+IntToStr(Number));

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

  ShowMessage('Card starts at Clubs');
  Inc(Card);
  if Card = Hearts then ShowMessage('Карта сейчас Сердце');
  if Card = Clubs then ShowMessage('Карта сейчас Крести');
  if Card = Diamonds then ShowMessage('Карта сейчас Буби');
  if Card = Spades then ShowMessage('Карта сейчас Пики');
end;