如何设置EXCEL的列宽(100分)

procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp:Variant;
begin
ExcelApp := CreateOleObject( 'Excel.Application' ); //动态创建EXCEL对象
ExcelApp.Visible := True; //显示当前窗口

ExcelApp.Caption := '应用程序调用 Microsoft Excel'; //更改 Excel 标题栏
ExcelApp.WorkBooks.Add; //添加新工作簿

//ExcelApp.WorkBooks.Open( 'C:/Excel/Demo.xls' ); //打开已存在的工作簿

ExcelApp.WorkSheets[2].Activate;
//ExcelApp.WorksSheets[ 'Sheet2' ].Activate; // 设置第2个工作表为活动工作表：
ExcelApp.Cells[1,4].Value:='第一行第四列'; //给单元格赋值
//ExcelApp.ActiveSheet.Columns[1].ColumnsWidth:=5; //设置指定列的宽度（单位：字符个数），以第一列为例
ExcelApp.ActiveSheet.Rows[2].RowHeight:=1/0.035; //设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例： 1厘米
end;

运行后提示“Method 'ColumnsWidth' not supported by automation object”!
本人比较急，盼各位大侠指教，谢谢

ExcelApp.ActiveSheet.Columns[1].ColumnsWidth:=5;
改成
ExcelApp.ActiveSheet.Columns[1].ColumnWidth:=5;

没有ColumnsWidth，应是ColumnWidth

QuickSilver非常感谢

接受答案了.