Image控件没法实现图片的拉伸效果显示

Image控件无法实现图片的拉伸效果显示?
想要把图片一点一点显示,可每次都是一次性显示。为什么呢?

for i:=0 to bmpheight do
begin
newbmp.Canvas.CopyRect(Rect
(0,bmpheight-i,bmpwidth,bmpheight),
Bmp.Canvas,Rect(0,0,bmpwidth,i));
Image1.Canvas.Draw(0,0,newbmp);
Sleep(10);
end;

------解决方案--------------------
for 里面加一个application.processmessage
每循环一次sleep(500)
------解决方案--------------------
500有点久了,不过10太短了时间自己看着调吧
------解决方案--------------------
因为timage和form分别是TCotnrol下的两条分支,虽然表面上都有canvas,但是刷新机制是不同的
TCotnrol有有自己的消息重绘,而timage需要依赖其Owner来重绘
------解决方案--------------------
4L代码有一点敲错了
TForm有有自己的消息重绘,而timage需要依赖其Owner来重绘