[Neftali [Germán.Estévez]]

Código Delphi [-]
type
  //: Tipo para definir tipos de vallas.
   TTipoValla = (tvVallaMetal, tvVallaMadera, tvSinValla);

Cuando tengas que crear una variable o propiedad de éste tipo basta con:

Código Delphi [-]
var
  Tipov:TTipoValla;
....

// para propiedades, por ejemplo.
property TipoValla:TTipoValla read FTipoValla write FTipoValla;