Se puede hacer esto en POO?

[[maeyanes]]

Ampliando un poco lo dicho por Crandel:

La clase THabitación puede tener una propiedad Estado, tal que:

Código Delphi [-]
TEstadoHabitacion = (ehDisponible, ehReservada, ehOcupadaCliente,
  ehOcupadaPersonal, ehRenovada, ehWarning, ehVencida, ehLimpieza,
  ehMantenimiento);

THabitacion = class
private
  FEstado: TEstadoHabitacion;

  function GetIsOcupadaCliente: Boolean;
public
  property Estado: TEstadoHabitacion read FEstado write FEstado;
  property IsOcupadaCliente: Boolean read GetIsOcupadaCliente;
end;

implementation

procedure THabitacion.IsOcupadaCliente: Boolean;
begin
  Result := FEstado = ehOcupadaCliente
end;

Saludos...