[Nyctos Kasignete]

Код:

procedure TForm1.Image1Click(Sender: TObject);
var
  pt: TPoint;
begin
  GetCursorPos(pt);
  pt := ScreenToClient(pt);
  ShowMessage('Coordinates: X=' + IntToStr(pt.X - Image1.Left) +
              ' Y=' + IntToStr(pt.Y - Image1.Top));
end;

Ой!

Код:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage('Coordinates: X=' + IntToStr(X) +
              ' Y=' + IntToStr(Y));
end;