Heyyyy!!
Nada como un buen casting bien hecho.
Gracias Neftali,ya funciona,con un ligero cambio:
Código Delphi
[-]
Tbarco1((Sender as TImage).Parent).atributo...
Con respecto al replanteamiento de la clase,pues ya estuve probando tal y como me comentas,colocando la imagen como atributo de la clase,pero al hacer el InsertControl no se lo traga.
De momento seguiré trabajando con lo que tengo.
Gracias de nuevo.
Saludos