Импорт из Excel в Builder

Variant  Application,Books,Book,Sheets,Sheet,Cells,Cell;
  Application=CreateOleObject("Excel.Application");
  Books = Application.OlePropertyGet("Workbooks");
  Books.OleProcedure("Open","Data.xls");
  Application.OlePropertySet("Visible", True);
  String Str;
  Str = Application.OlePropertyGet("ActiveSheet").OlePropertyGet
  ("Cells", 1, "A").OlePropertyGet("Value");
  ShowMessage(Str);

OleProcedure(name, static_cast<TAutoArgsBase*>(&args));

Books.OleProcedure("Open","Data.xls");

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();