Más problema padrón observador

[adpa]

Hola
la llamada la hago en la siguiente funcion

Código Delphi [-]
procedure cTienda.pedirVez(c:cConsumidor);
{
DESCRIPCION -> El consumidor pide la vez en la tienda a la que desea ir
 se le asigna su turno.
PRECONDICIÓN -> Lista de tiendas esté creada.
PARAMETROS -> Consumidor que pide la vez
}
begin
     if (c.ClassName = 'cConsumidor') then
     {Mirar si es especial o normal}
     {Es normal}
 begin
 c.setTurno(self.visor.GetTiketN);
        self.visor.SetTiketN(self.visor.GetTiketN+1);
 end
     {Es especial}
     else            
 begin
   c.setTurno(self.visor.GetTiketE);
         self.visor.SetTiketE(self.visor.GetTiketE+1);  
 end;
     self.Attach(c);
end;

c si qué está cargado con los datos del consumidor.

Tengo que reescribir alguna funcion de tObserver en el consumidor.

Muchas Gracias, es muy urgente