TImage 画 .Ico 图标，我想水平居中，垂直居上怎么办？救命哦..... ( 积分: 100 )

TImage 画 .Ico 图标，我想横居中，垂直居上
设置 center := True
得到上下左右居中，可我想 横居中，垂直居上 ，想了好久，无法实现，大虾救命。

TImage 画 .Ico 图标，我想横居中，垂直居上
设置 center := True
得到上下左右居中，可我想 横居中，垂直居上 ，想了好久，无法实现，大虾救命。

procedure TForm1.Image1DblClick(Sender: TObject);
var
ico:TIcon;
x,w:Integer;
begin
ico :=TIcon.Create;
try
ico.LoadFromFile('test.ico');
//Image1.Picture.Assign(ico);
w :=ico.Width;
x :=(Image1.Width-w) div 2;
Image1.Canvas.Draw(x,0,ico);
finally
ico.Destroy;
end;
end;

谢谢downSong,