[Casimiro Notevi]

Código Delphi [-]
Case colour of
  Red    : ShowMessage('The colour is Red');
  Green  : ShowMessage('The colour is Green');
  Blue   : ShowMessage('The colour is Blue');
  Yellow : ShowMessage('The colour is Yellow');
  else ShowMessage('The colour is Unknown!');
end;