Delphi 屏幕坐标转换窗口坐标

var
  MouseXY: TPoint;
begin
  GetCursorPos(MouseXY);
  MouseXY := ScreenToClient(MouseXY);
  Showmessage(IntToStr(MouseXY.X) + ',' + IntToStr(MouseXY.Y))
end;