关于Image的一个问题。。

Delphi(Pascal) code

var
newbmp: TBitmap;
i,bmpheight,bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.LoadFromFile('RES\002.bmp');
Image1.Height:=newbmp.Height;
image1.Canvas.Draw(0,0,newbmp);
bmpheight:=newbmp.Height;
newbmp.LoadFromFile('RES\003.bmp');
Image1.Height:=Image1.Height+newbmp.Height;
image1.Canvas.Draw(0,bmpheight,newbmp);

上面这段代码为什么第二张图片显示不出来啊？当我把Image的高设置的足够大时两张图片能显示（也就是不设置Image的高的时候），但是如果我想根据图片的大小来改变Image的高的时候，第二张图片就显示不出来。。。

可能应该在OnPaint中再画一次。