头痛！！！画图时显示奇慢！！！(50分)

我用Image，处理它的onmouseover画图
procedure Image1MouseOver(sender: TObject)
begin
if shift = [ssLeft] then
Image1.canvas.lineto(X,Y)
else
Image1.canvas.MoveTo(X,Y);
end;
我发现如果Image1.Stretch=true，并且放大时，画的线条显示奇慢！！！

你这样不累死机子才怪，不能用Stretch设置变形，要自己定义坐标系然后再变化，你用Stretch时只要你的圈大一点，它就要缩小一次，根本不可能快的。