Не выгружается последний столбец в эксель по данному примеру

String DatesTimes = Now().FormatString("DDMMYYYYhhmmss");
String fTPL,fXLS;
 
    fTPL = ExtractFilePath(Application->ExeName) +"RepShablon\\export_f2.xlsx";
 
    fXLS = ExtractFilePath(Application->ExeName) +"rep-soft_"+DatesTimes+".xlsx";
    Variant app, books, book, sheet, Rang, vCell;
    app = CreateOleObject("Excel.Application");
    books = app.OlePropertyGet("Workbooks");
    books.OleFunction("Open", WideString(fTPL));
    book = books.OlePropertyGet("item",1);
    sheet = book.OlePropertyGet("WorkSheets",1);
 
    vCell=sheet.OlePropertyGet("Cells").OlePropertyGet("Item",1,2);
    vCell.OlePropertySet("Value",WideString("Отчет по "+DBGrid1->Hint));
 
    const int bounds[4] = {0, DataModule1->ADOQuery1->RecordCount, 0, DataModule1->ADOQuery1->FieldCount+1};   //
    Variant vData = VarArrayCreate(bounds, 3, varVariant);
 
    DataModule1->ADOQuery1->First();
 
    for(int row = 0; row < DataModule1->ADOQuery1->RecordCount; ++row) {
        vData.PutElement(row+2, row, 0);  //
        for(int column = 0; column < DataModule1->ADOQuery1->FieldCount; ++column)
        vData.PutElement(DataModule1->ADOQuery1->Fields->Fields[column]->AsVariant, row, column+1);      //
        DataModule1->ADOQuery1->Next();
    }
 
    Rang = sheet.OlePropertyGet("Range",sheet.OlePropertyGet("Cells",4,1),
    sheet.OlePropertyGet("Cells", DataModule1->ADOQuery1->RecordCount + 3, DataModule1->ADOQuery1->FieldCount));
 
    Rang.OlePropertySet("Value",vData);
    app.OlePropertySet("DisplayAlerts",false);
    app.OlePropertySet("Visible",true);
 
    }