bmp.loadfromfile 载入一BMP后使用 bmp.width=bmp.width*3增加了宽度，怎么使其中原有图像位于中间呢

bmp.loadfromfile 载入一BMP后使用 bmp.width=bmp.width*3增加了宽度，如何使其中原有图像位于中间呢？
用这种办法增加宽度后会在原始图像右边增加空白区域，如果不加任何设置，原始图像会位于（0，0）处，所有增加的宽度全加到了右边，我现在想在改变了这个BMP的宽度后，使其中原来的图像位于中间，如何做到呢？

[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
bmp, tmp: TBitmap;
begin
tmp := TBitmap.Create;
tmp.LoadFromFile( 'D:\del_gdiplus\Demos\Media\Mask1.bmp ');
bmp := TBitmap.Create;
bmp.Width := tmp.Width * 3;
bmp.Height := tmp.Height;
bmp.Canvas.Draw(tmp.Width, 0, tmp);
tmp.Free;
Canvas.Draw(0, 0, bmp);
bmp.Free;
end;