mmm si. Para obtener las coordenadas del TShape sobre la imagen:
Código Delphi
[-]
...
Var X, Y : Integer;
Begin
X:= TShape.Left - TImage.Left;
Y:= TShape.Top - TImage.Top;
end;
Las coordenadas X,Y formarían el punto exacto de la esquina superior izquierda del TShape sobre el TImage.