关于excel的问题？(50分)

如何实现在delphi中实现excel单元中的文本居中显示？

举个例子：
var
VExcel: Variant;
begin
VExcel:= CreateOleObject('Excel.Application');
VExcel.Visible := True;
VExcel.Workbooks.Open(FilePath);
aSheet:= VExcel.ActiveWorkBook.WorkSheets[1]; //取得WorkBook中的一页WorkSheet
aSheet.Rows[2].RowHeight := 20; //设置行高
aSheet.Rows[2].VerticalAlignment := 2;//xlCenter(垂直对齐方式)//居中
aSheet.Rows[2].HorizontalAlignment := 3;//xlCenter(水平对齐方式)//居中
... ...
if not VarIsEmpty(VExcel) then
begin
VExcel.Quit;
VExcel:= Unassigned;
end;
end;

msdn（2002.7）上有其完全帮助。
ms-help://MS.MSDNQTR.2002APR.1033/vbaxl10/html/xlobjapplication.htm

多人接受答案了。