Sender as...

[modulay]

Gracias por responder Neftali.
Ya probé esa opción y si no reuerdo mal el .Parent es un TwinControl que tampoco se por donde cogerlo,ya que no parece poseer los atributos que me interesan.

[Neftali [Germán.Estévez]]

Seguramente ese .Parent (TWinControl) es tu TBarco.

Código Delphi [-]
  TBarco(Sender.Parent).PropiedadQueQuieras...

De todas formas, creo que deberías replantearte el diseño de TBarco, como tú bien dices y ver si te interesa derivarlo de un TImage directemente, o de un TPanel (en ese caso yo pondría el TImage -o TBitmap- como propiedad de TBarco).

[modulay]

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