[vtdeleon]

Como ya escribio Neftalo\i:

Empezado por Neftali

En lugar de con el evento OnClick prueba con los eventos OnMouseDown/OnMouseUp que te devuelven X e Y con las coordenadas donde se ha pulsado el click.

Con dos labels has esto:

Código Delphi [-]
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption:=inttostr(x);
  Label2.Caption:=inttostr(y);
end;