Menejar un TypeCast con varios componentes

[dabas]

Vale, vale. ya entiendo, eso me pregunté yo hace no mucho tiempo, pero no queria investigar como se hacia y lo hice de la manera que he escrito.
Pero yo creo que se podria aplicar un override a la funcion "enter" por ejemplo y asi poder añadir otro parametro como indicas:
procedure enter(elemento:Tobject;tipo:Classtype);
Pero desconozco como se pone en practica.
Pues eso, siento no ser de mas ayuda.

Hasta otra