Объясните delphi (inc)

[Neymexa]

вот код
в последнем примере почему сначала крести а потом сразу пики?
должно быть сперва пики а потом буби!!!
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;
Символ: A
Символ + 1: B
Число: 23
Число + 5: 28
Карта начинается с Крести
Карта сейчас Пики

[Arigato]

Карта начинается с Крести
Карта сейчас Пики

Не знаю, что там у Вас, у меня выдал: "Карта сейчас Буби".

[SERG1980]

Inc(X, [N]) Увеличивает целую переменную X на 1 или на заданное число N.

[SERG1980]

Извиняюсь чё тоя не в тему выдал

[plato]

тоже бубна

[Neymexa]

Благодарю всех за помощь это просто ошибка в учебнике.
Просто читаю и вот на такое напоролся