如何设定栏宽？

Question

我用的delphi 7.0 和 office xp
我用下面语句打开已经存在Excel文件
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Workbooks.Open('c:\temp.xls',EmptyParam,EmptyParam,
     EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
     EmptyParam,EmptyParam,EmptyParam,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Item[1]);
ExcelWorkBook1.Activate;
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets['sheet1'] as _WorkSheet);
ExcelWorksheet1.Activate;
现在我要设定"Sheet1"工作表中的“A”栏的宽度为10个字符宽，“B”栏的宽度为20个字符宽。
请问如何实现？