DataModule1->ADOData->Close() ;
DataModule1->ADOData->CommandText = "select * from table";
DataModule1->ADOData->Open() ;
for (int i = 4; i < DataModule1->ADOData->RecordCount+4; i++) {
ACell = FAnalizExcel->dxSpreadSheet1->ActiveSheetAsTable->Cells[i][2];
ACell->AsString = DataModule1->ADOData->FieldByName("Наименование")->Value;
}