Делаю экспорт в эксель, выдает ошибку в переменной,что не нравится?

procedure TForm3.Action6Execute(Sender: TObject);
XLApp,Sheet,Colum:Variant;
index,i:intenger;
begin
XLApp:= CreateOleObject ( 'Excel .Application' ) )
XLApp.visible:=true;
xlapp.workbooks.add(-4167);
XLApp.workbooks[1].worksheets[1].name:='Отчет';
Colum:=XLApp.workbooks[1].worksheets[1].name['Отчет'].columns;
Colum.Columns[1].ColumnWidht:=20;
Colum.Columns[2].ColumnWidht:=20;
Colum.Columns[3].ColumnWidht:=20;
Colum.Columns[4].ColumnWidht:=20;
Colum.Columns[6].ColumnWidht:=20;
Colum.Columns[7].ColumnWidht:=20;
Colum.Columns[8].ColumnWidht:=20;
Colum.Columns[9].ColumnWidht:=20;
 
 
Colum:=XLApp.Workbooks[1].Worksheets['Отчет'].Rows;
Colum.Rows[2].Font.Bold:=true;
Column.Rows[1].Font.Bold:=true;
Column.Rows[1].Font.Color:=clBlue;
Column.Rows[1].Font.Size:=14;
 
Sheet:=XLApp.Workbooks[1].Worksheets['Отчет'];
Sheet.Cells[1,2]:='Lhord';
Sheet.Cells[1,2]:='hh';
Sheet.Cells[1,2]:='Ftrg';
Sheet.Cells[1,2]:='Fsect';
Sheet.Cells[1,2]:='Fsegm';
Sheet.Cells[1,2]:='qv';
Sheet.Cells[1,2]:='L1';
Sheet.Cells[1,2]:='Q';
 
index:=3;
DataModule4.BookTable.First;
for i:=0   to DataModule4.BookTable.RecordCount - 1  do
begin
Sheet.Cells[index,1]:=DataModule4.BookTable.Fields.Fields[1].AsString;
Sheet.Cells[index,2]:=DataModule4.BookTable.Fields.Fields[2].AsString;
Sheet.Cells[index,3]:=DataModule4.BookTable.Fields.Fields[3].AsString;
Sheet.Cells[index,4]:=DataModule4.BookTable.Fields.Fields[4].AsString;
Sheet.Cells[index,5]:=DataModule4.BookTable.Fields.Fields[5].AsString;
Inc(index);
DataModule4.BookTable.Next;
end;

('Excel .Application') 
Column-n лишняя