[roman]

Código Delphi [-]
consumidor := cConsumidor(self.salaOcio.Objetos[1]);

Por cierto, te recomendaría ajustarte a los estándares: las clases y otro tipos de datos se prefijan con T, no con C.

// Saludos