16*16的图标（ICON）在画布上画怎么变大了。(50分)

有一个16*16的图标（ICON），用CANVAS在画布上画，好像变成32*32或更大了，怎么办？

兩個image, 一個button
image1放一個圖標


procedure TForm1.Button1Click(Sender: TObject);
var
Icn: TIcon;
Bmp: TBitmap;
begin
Icn:=TIcon.Create;
Bmp:=TBitmap.Create;
try
Icn.Assign(Image1.Picture.Icon);
Image2.Picture.Icon:=nil;
Bmp.Width:=Icn.Width;
Bmp.Height:=Icn.Height;
Bmp.Canvas.Draw(0,0,Icn);
Image2.Canvas.StretchDraw(Image2.ClientRect, Bmp);
finally
Icn.Free;
Bmp.Free;
end;
end;

不好意思，能不能有更直接的画法，因为我的这个程序对时间要求很快，想直接
var
ico:Ticon;
ico:=ticon.create;
ico.loadfromfile(..);
self.canvas.draw(10,10,ico);
但本身是16*16的ICON，画成了很大的。

http://www.xxtax.gov.cn/delphi/bbsxp/showtopic.asp?id=46&forumid=1&page=9

API
BITBLT

多人接受答案了。