delphi image控件上画矩形的问题

画的时候发现鼠标点的位置和矩形的位置有偏移

后来查看发现是由于image控件时stretch属性设置为true，这样在画的时候是缩放了的

也就是画到image显示的图片上去了

所以如果要画矩形，要按照原图大小与image大小的比例进行缩放。