关于TImage控件坐标的有关问题

关于TImage控件坐标的问题
本人想实现这样的功能:
把一张722*722的图片放到TImage控件上,但控件的大小只有300*300.设置了Image.Stretch属性为真.所以可以完整的显示出来.鼠标移动到控件上时我想提示坐标,但问题是提示的坐标最多只能是300*300.我想让提示的坐标跟图片大小一样也就是722*722,不知道该如何处理?

[解决办法]
X := Round(Image1.Picture.Width / Image1.Width * X);
Y := Round(Image1.Picture.Height / Image1.Height * Y);