type
TSuit = (Hearts, Clubs,
Diamonds, Spades);
var
Character : char;
Number : Integer;
Card : TSuit;
begin
// We can increment characters
Character :=
'A';
ShowMessage('Character : '+Character);
Character := Succ(Character);
ShowMessage('Character+1 : '+Character);
// We can
increment numbers
Number := 23;
ShowMessage('Number : '+IntToStr(Number));
Number :=
Succ(Number);
ShowMessage('Number+1 : '+IntToStr(Number));
// We can increment enumerations
Card :=
Clubs;
ShowMessage('Card starts at Clubs');
Card := Succ(Card);
if Card = Hearts then
ShowMessage('Card is now Hearts');
if Card = Clubs then
ShowMessage('Card is now Clubs');
if Card = Diamonds then
ShowMessage('Card is now Diamonds');
if Card = Spades then
ShowMessage('Card is now Spades');
end;