var Point:TPoint;begin GetCursorPos(Point);end;Point.xPoint.y就是坐标
saf sadfasdfasdfasdfasd sajkdfklasdjflkas;jf;lasjdfksdhfkjashgkfjhasdfhkasdhfkajsd就是坐标