Странная ошибка при работе с Excel

int i;
 
TExcelApplication * XL = new TExcelApplication;
TExcelWorksheet *Sheet = new TExcelWorksheet;
 
Excel_2k::ExcelRangePtr = my_range, cell;
 
XL->Workbooks->Add();
Sheet= XL->ActiveWorkbook->Sheets[1];
Sheet->PageSetup->Orientation = 2;
Sheet->Name = 'Лист № 1';
Sheet->Columns[1]->ColumnWidth= 5;
Sheet->Columns[2]->ColumnWidth= 25;
Sheet->Range[Sheet->Cells[2,1],Sheet->Cells[2,2]]->HorizontalAlignment= 3;
Sheet->Range[Sheet->Cells[2,1],Sheet->Cells[2,2]]->VerticalAlignment= 2;
Sheet->Range[Sheet->Cells[2,1],Sheet->Cells[2,2]]->WrapText= true;
Sheet->Range[Sheet->Cells[2,1],Sheet->Cells[2,2]]->Font->FontStyle= 'Полужирный';
Sheet->Range[Sheet->Cells[2,1],Sheet->Cells[2,2]]->Merge(false);
Sheet->Range[Sheet->Cells[2,1],Sheet->Cells[2,2]]= 'Результаты';
Sheet->Cells[3,1]= 'Код';
Sheet->Cells[3,1]= 'Наименование';
i= 4;
/*ADOTable1.First;
while not ADOTable1.Eof do
{
Sheet.Cells[i,1]:= ADOTable1.Fields[0].AsInteger;
Sheet.Cells[i,2]:= ADOTable1.Fields[1].AsString;
Sheet.Cells[i,3]:= ADOTable1.Fields[2].AsString;
inc(i);
ADOTable1.Next;
}*/
XL->Visible= true;
Sheet= UnAssigned;
XL= UnAssigned;
 
}