[astwin]

Hola, tengo un pequeño problema. Tengo una clase, la cual posee un objeto del tipo Timagen. Cuando un objeto de la clase que me e definido le asigno como parent un panel a la imagen para que se muestre en el. El problema reside en cuando pulso con el raton encima de la imagen, y es que el sender resulta ser el Timage y quiero poder acceder al objeto el cual contiene esta Timage.

Código Delphi [-]
// Mi clase que contiene un objeto Timage
type TgraphBlock=class(Tpersistent)
  public
    image: Timage;
    dato:integer;
end;
//...

// Funcion que le asigno al evento onMouseDown del Timagen
procedure TgraphBlock.ImageMouseDown(Sender: TObject; Button:TMouseButton;  Shift: TShiftState; X, Y: Integer);

begin
  if Button = mbLeft then
    with Sender as TImage do
    begin
      // Cómo podría acceder ahora al dato si tengo una referencia al Timage, no al objeto del tipo TgraphBlock

    end;
 
end;

Si pudieran ayudarme les estaria muy agradecido