Problemas con herencia

[adpa]

Hola tod@s:

Tengo una lista genérica:

Código Delphi [-]
cLista = class(tList)
                 private
                        Incremento     : Integer; { número de elementos a incrementar el array }
                        Elementos      : Integer;
                        Primero        : array of tObject;  { lista sobre array dinámico }
                        procedure   IncrementarArray( Cantidad : integer);
                        function    Obtener ( Posicion : integer): tObject;
                        procedure   Actualizar ( Posicion : integer; Nuevo:tObject);
                  public
                       constructor Create (Incremento : Integer);
                       destructor  Destroy;override;
                       procedure   Insertar( Informacion: tObject);
                       procedure   Eliminar( Posicion : integer);
                       function    EsVacia : boolean;
                       function    Longitud : Integer;
                       property    Objetos[ Indice : Integer]: tObject read Obtener write Actualizar;
                end;

y otra que hereda de ella
cListaConsumidores = class (cLista)

y cuando intento hacer la siguiente operación
consumidor:=self.salaOcio.Objetos[1];
----Me dice que no se puede convertir de tObject a consumidor;

cConsumidor = CLASS(TObserver)

TObserver = class
public
procedure Update(const Subject: TObject); virtual; abstract;
end;

He probado ha hacer que TObserver herede de tObject pero me da el mismo error.

Hecharme una mano. Gracias