Как считать столбецы из Excel и на основе них построить диаграму?

AnsiString ppp,fff;
//ppp="A3";
//fff="vid";
int i,y,shag;
shag=3;
AnsiString mas[]={"","A","B","C","D","E","F","G","H","I","J","K","L","M"};
AnsiString baza[]={"","vid","name","fidr","enerobj","nomer","adress","place","street","house","ugaldoma","liter","stroenie","korpus"};
Table1->DatabaseName=GetCurrentDir()+"\\BAZA";
Table1->TableName="objekt.db";
Table1->Active=true;
Variant ActiveDocument,varAPP,varBooks,varBook,varSheets,varSheet,varCells,varCell,ttt;
varAPP=CreateOleObject("Excel.Application");
varAPP.OlePropertySet("Visible",true);
varBooks=varAPP.OlePropertyGet("WorkBooks");
varBooks.OleProcedure("OPEN","c:\\1234.xlsx");
varBook=varBooks.OlePropertyGet("Item",1);
varSheets=varBook.OlePropertyGet("Worksheets");
varSheet=varSheets.OlePropertyGet("Item",1);
//varCell=varSheet.OlePropertyGet("Range",ppp.c_str());
//ttt=varCell.OlePropertyGet("Value");
//Label1->Caption=ttt;
//ActiveDocument=Form1->varBook.OlePropertyGet("ActiveDocument");
for(i=1;i<=826;i++)
{
 
    Table1->Append();
    for(y=1;y<=13;y++)
       {
        ppp=mas[y]+shag;
        varCell=varSheet.OlePropertyGet("Range",ppp.c_str());
        Table1->FieldByName(baza[y])->AsString=varCell.OlePropertyGet("Value");
       }
       shag=shag+1;
 
}
Table1->Post();

std::auto_ptr<TStringList> SL(new TStringList);  // Создаем StringList
 
if (OpenDialog1->Execute()) {
 
SL->LoadFromFile(OpenDialog1->FileName); // Засовываем выбраный файл
 
AnsiString str;        // Создаем строковую переменную для подсчета столбцов
int s=1;
str=SL->Strings[1];
for (int k= 1; k <=str.Length(); k++) {
if (str[k]==';') //столбцы будем считать по разделителям в 1 строке нашего файла
{
    s++;
}
StringGrid1->ColCount=s;             //количество столбцов)
StringGrid1->RowCount=SL->Count;     // Рисуем количество строк
}
for(int i=0;i<SL->Count;i++) //заполняем таблицу
 {
StringGrid1->Rows[i]->Delimiter=L';';   //указываем разделитель
StringGrid1->Rows[i]->StrictDelimiter=1;
StringGrid1->Rows[i]->DelimitedText=SL->Strings[i];  //заносим текст
 }
}