Hola a todos,
Puede revisar este
artículo de Delphi Basics y también este
apartado de la documentación de Embarcadero Delphi. Este sería un ejemplo con varios "tipos enumerados":
Código Delphi
[-]
type
TSound = (tsClick, tsClack, tsClock);
TMyColor = (mcRed, mcBlue, mcGreen, mcYellow, mcOrange);
Answer = (ansYes, ansNo, ansMaybe)
Arriba "TSound", "TMyColor", "Answer", son "enumeraciones". Así podría usarse una de ellas, por ejemplo:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
var
Sound: TSound;
begin
Sound := TSound.tsClick;
if Sound = TSound.tsClick then
ShowMessage('Sound is tsClick');
end;