Создание отчета в Exel

[Дмитрий Гриб]

При создании отчета в Exel приложение выдаёт ошибку:
Project Kontrol.exe raised exeption class EOleSysError with message ‘Недопустимая строка с указанием класса’. Process stoped….. не могу понять, в чем проблема…
…..

//Создание отчета в Exel
procedure TForm1.Button6Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject ('Exel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет';
Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Columns;

Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].Worksheets ['Отчет'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].Worksheets ['Отчет'];

Sheet.Cells[1,2]:='Раздел';
Sheet.Cells[2,1]:='Организация';
Sheet.Cells[2,2]:='Номер договора';
Sheet.Cells[2,3]:='Дата договора';
Sheet.Cells[2,4]:='Дата окончания';
Sheet.Cells[2,5]:='Сумма с НДС';
Sheet.Cells[2,6]:='Ответственное лицо';

index:=3;
DogTable.First;
for i:=0 to DogTable.RecordCount-1 do
begin
//DogTable-название таблицы
Sheet.Cells [index,1]:=DogTable.Fields.Fields[3].AsString;
Sheet.Cells [index,2]:=DogTable.Fields.Fields[4].AsString;
Sheet.Cells [index,3]:=DogTable.Fields.Fields[3].AsString;
Sheet.Cells [index,4]:=FormatDateTime('dddddd',DogTable. Fields.Fields[6].AsDateTime);
Sheet.Cells [index,5]:=FormatDateTime('dddddd',DogTable. Fields.Fields[9].AsDateTime);
Sheet.Cells [index,6]:=DogTable.Fields.Fields[3].AsString;
Sheet.Cells [index,7]:=DogTable.Fields.Fields[14].AsString;
Inc (index);
DogTable.Next;
end;
end;
…..


или существует какой-то иной способ вывода отчета в Exel?
Заранее огромное СПАСИБО!

[lexaltd]

XLApp:= CreateOleObject ('Excel.Application');

[Дмитрий Гриб]

Спасибо!!! )))