控制出错，请求帮助，日后送分(0分)

我想控制对应输出的Excel的列宽，程序如下：
var
Xl:Variant;
begin
XL:=CreateOLEObject('Excel.Application');
XL.visible:=true;
XL.Caption:='案件列表';
XL.WorkBooks.Add; //添加新的工作簿
XL.worksheets[1].activate; // 设置第一个工作表为活动工作表
XL.ActiveSheet.PageSetup.CenterHeader:='案件列表';//设置页眉
XL.ActiveSheet.Rows[1].Font.Name:='宋体';
Xl.ActiveSheet.Columns[1].ColumnsWidth:=8.88;
end;
执行到控制列宽时，显示出错：
'Method 'ColumnsWidth' not Supported by automation object
这是何故？另外我想设置页眉的字体、大小，如何控制？

因为没有'ColumnsWidth' 应为'ColumnWidth'。

同一楼上的