JMStyle

첫번째 윈도우 상에서의 마우스 좌표

procedure TForm1.Image1Click(Sender: TObject);
var
   fpint : TPoint;                                        //Tpoint 타입
begin
   Windows.GetCursorPos(fpint);                //윈도우상에서의 무우스 좌표
      StartX := fpint.X                                  // X좌표 추출
      StartY := fpint.Y                                  // Y좌표 추출
      lblView.Caption := 'X : '+IntToStr(StartX)+'  Y : '+IntToStr(StartY);
   end ;
end;

위에서 보듯 이벤트 자체가 마우스 클릭 이벤트입니다.

두번째 이미지 캔버스 안에서 만의 마우스 좌표

procedure TfrmMain.imgMainMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   lblView.Caption := 'X : '+IntToStr(X)+' Y : '+IntToStr(Y);

end;

이번에는 마우스 다운 이벤트로 이 프로시져 자체가 x,y좌표를 인수로 갖는다. 그냥 활용만 하면 됩니다.