急救：image上显示图形！！！(50分)

我用的软件是delphi7.0，想在image控件上画了一些图形，可是超出image的部分就显示不出来了
我想要[red]当image画满后，把image上画的保存想来，再把image上面画的擦掉，重新开始画，这样一直循环[/red]
要如何做呢！！！？

根据所画图形大小设置image的大小，太大放在scrollbox上。
保存图形
image1.Picture.SaveToFile('文件名.bmp')
擦掉：
image1.Canvas.Brush.Style :=bsSolid;
image1.Canvas.Brush.Color:=clWhite;
image1.Canvas.FillRect(rect(0,0,image1.width,image1.height));

接受答案了.