Как добавить в первый столбец порядковый номер строки? (Excel)

String DatesTimes = Now().FormatString("DDMMYYYYhhmmss");
String fTPL,fXLS;
 
    fTPL = ExtractFilePath(Application->ExeName) +"RepShablon\\export_dev_f1.xlsx";
 
  fXLS = ExtractFilePath(Application->ExeName) +"repTSBSoft_"+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,1);
  vCell.OlePropertySet("Value",WideString("Отчет по "+DBGrid2->Hint));
 
  const int bounds[4] = {0, DataModule1->ADOQuery2->RecordCount, 0, DataModule1->ADOQuery2->FieldCount};
  Variant vData = VarArrayCreate(bounds, 3, varVariant);
 
  DataModule1->ADOQuery2->First();
 
  for(int row = 0; row < DataModule1->ADOQuery2->RecordCount; ++row)
   {
     for(int column = 0; column < DataModule1->ADOQuery2->FieldCount; ++column)
        vData.PutElement(DataModule1->ADOQuery2->Fields->Fields[column]->AsVariant, row, column);
     DataModule1->ADOQuery2->Next();
   }
 
  Rang = sheet.OlePropertyGet("Range",sheet.OlePropertyGet("Cells",4,1),
         sheet.OlePropertyGet("Cells", DataModule1->ADOQuery2->RecordCount + 3, DataModule1->ADOQuery2->FieldCount));
 
  Rang.OlePropertySet("Value",vData);
  app.OlePropertySet("DisplayAlerts",false);
  app.OlePropertySet("Visible",true);

        String str_zapros;
 
        if(rep_filter.IsEmpty()) { str_zapros = rep_tabl; }
        else { str_zapros = rep_tabl+" "+rep_filter; }
        if(!zapros.IsEmpty()) { str_zapros = zapros; }
        else {
            DataModule1->ADOQuery->Close();
            DataModule1->ADOQuery->SQL->Text = str_zapros;
            DataModule1->ADOQuery->Open();
        }
 
String DatesTimes = Now().FormatString("DDMMYYYYhhmmss");
 
  if(!FileExists(rep_file)) { ShowMessage("ОЙ! <" +rep_file+ "> file not found."); return; }
 
  String fTPL = ExtractFilePath(Application->ExeName) + rep_file;
  String fXLS = ExtractFilePath(Application->ExeName) + "\\report\\rep_"+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,5);
  vCell.OlePropertySet("Value",WideString(name_rep));
 
  const int bounds[4] = {0, DataModule1->ADOQuery->RecordCount, 0, DataModule1->ADOQuery->FieldCount+1 };
  Variant vData = VarArrayCreate(bounds, 3, varVariant);
 
  DataModule1->ADOQuery->First();
 
  for(int row = 0; row < DataModule1->ADOQuery->RecordCount; ++row)
   {
     vData.PutElement(row+1, row, 0);
     for(int column = 0; column < DataModule1->ADOQuery->FieldCount; ++column)
        vData.PutElement(DataModule1->ADOQuery->Fields->Fields[column]->AsVariant, row, column+1);
        DataModule1->ADOQuery->Next();
   }
  Rang = sheet.OlePropertyGet("Range",sheet.OlePropertyGet("Cells",4,1),
         sheet.OlePropertyGet("Cells", DataModule1->ADOQuery->RecordCount + 3, DataModule1->ADOQuery->FieldCount));
 
    Rang.OlePropertySet("Value",vData);
    app.OlePropertySet("DisplayAlerts",false);
    app.OlePropertySet("Visible",true);