关于操作Excel的有关问题

关于操作Excel的问题，请指教
try
                myexcel:=createoleobject( 'excel.application ');
                myexcel.application.workbooks.add;
                myexcel.caption:= '将数据导入到EXCEL表中 ';
                myexcel.application.visible:=true;
                workbook:=myexcel.application.workbooks[1];
                worksheet:=workbook.worksheets.item[1];
            except
                showmessage( 'EXCEL不存在！ ');
            end;

            worksheet.cells[1,1]:= '序号 ';
            worksheet.cells[1,2]:= '时间 ';
            worksheet.cells[1,3]:= '内容 ';

这段代码是创建Excel的，我想把时间列宽度变大，请问应该怎么写？我尝试了几个都不对，请帮忙

[解决办法]
uses comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
exl:variant;
begin
exl:=createoleobject( 'excel.application ');
exl.Workbooks.Add;
exl.visible:=true;
exl.worksheets[ '工作表名 '].cells[1,列号].ColumnWidth:=列宽;
end;