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

Cuando creas el TImage asígnale como owner tu objetoTGraphBlock

Código Delphi [-]
  ...
  image := TImage.Create(Self);

Cuando quieras acceder al objeto contenedor, basta con que accedas a esa propiedad.

Código Delphi [-]
var
  gb:TGrapkBlock;
begin
...
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
  if (TImage(Sender) is TgraphBlock) then
    gb := TGraphBlock(TImage(Sender).Owner;
    ...
  end;
end;