为什么这里的Timage.fillrect不起作用？ 画图区域并没有增大？

Question

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
self.Image1.Width :=self.Image1.Width+40;
self.Image1.Height:=self.Image1.Height+40;
self.Image1.Canvas.Pen.Color:=clRed;
self.Image1.Canvas.Brush.Color:=clGreen;
self.image1.Canvas.FillRect(Rect(0,0,image1.Width,image1.Height));
end;整个form上只有image1和bitbtn1
点击bitbtn 不能改变画图区域的大小，
但是image1的width,height明显的增大了啊！ 整个的form也不断的变大
：（who can do me a favor?我用的是Delphi 7!

Answer 1

self.Image1.Width :=self.Image1.Width+40;
self.Image1.Height:=self.Image1.Height+40;
self.Image1.Picture := nil;  // <- 加上这句
self.Image1.Canvas.Pen.Color:=clRed;
self.Image1.Canvas.Brush.Color:=clGreen;
self.image1.Canvas.FillRect(Rect(0,0,image1.Width,image1.Height));