DELPHI中用canvas 画了几段线，如画成一“W形”，我可以把这刚画完的图形缩小吗？或放大

用canvas的StretchDraw方法可以实现发达缩小，下面的代码可以参考

var Image1,Image2:TImage;
begin
Image1:=TImage.Create(nil);
Image2:=Timage.Create(nil);
Image1.loadformfile('...');
Image2.Height:=IMage1.Height/2;
Image2.Width:=Image1.Width/2;
Image2.Canvas.StrentchDraw(0,0,IMage2.Width,Image2.Height,Image1.Graphic);
Image2.Save('...');
Image1.free;
Image2.free;

end;