Поместить код в прямоугольник и выполнить

[artemavd]

Поясни, пожалуйста, что значит "прямугольник рисуется неправильно по координатам". Как рисует, а как должен?

Рисоваться прямоугольник должен так, чтобы курсор мыши был в правом нижнем углу прямоугольника. Нарисуйте в Paint прямоугольник и Вы поймете меня. Вот и мне так нужно, чтобы рисовалось. Пример неправильного рисования я привел в посте выше.

И сразу уточни, рисуешь на Image1.Canvas или Image1.Picture.Bitmap.Canvas.

Сейчас поменял везде на И сразу уточни, рисуешь на Image1.Picture.Bitmap.Canvas.
, но результат тот же - отрицательный.

[Sibedir]

на Image1.Picture.Bitmap.Canvas

Чему же тут удивляться. Если Stretch = True, то Bitmap растягивается, и, соответственно, координата пиксела на Image'е НЕ соответствует координате этого пиксела на Bitmap'е. Рисуйте прямоугольник на Image.Canvas или пересчитывайте координату с учетом кооэффициентов растяжения

kw := Image.Width / Bitmap.Width
kh := Image.Height / Bitmap.Height

[artemavd]

И вместо чего заносить эти kw и kh координаты?

[TwiX]

Точка (x,y) на битмапе будет точкой (x/kw,y/kh)