Импорт из EXEL в StringGrid

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 String file = "D:\\22\\test.xls";  // ïóòü óêàçûâàòü ÀÁÑÎËÞÒÍÛÉ!
 String col = "A" ; int row = 1;
 
 Variant App=Variant::CreateObject("Excel.application");
 Variant Books=App.OlePropertyGet("Workbooks");
 Procedure Open("Open");
 Books.Exec(Open<<file);
 Variant Book=App.OlePropertyGet("ActiveWorkBook");
 Variant Sheet=Book.OlePropertyGet("ActiveSheet");
 PropertyGet Range("Range");
 Variant range=Sheet.Exec(Range<<Variant(col+row));
 String val = range.OlePropertyGet("Value");  //val - çíà÷åíèå ÿ÷åéêè À-1
 
    Edit1->Text = val;
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{ 
   AnsiString file = "D:\\22\\test.xls";
   Variant Excel=CreateOleObject("Excel.Application");
   Variant Book=Excel.OlePropertyGet("Workbooks").OlePropertyGet("Open", file);
   Variant Sheet=Book.OlePropertyGet("Worksheets", 1);
   for(int i=1;i<6;i++) for(int j=1;j<6;j++)
       grid->Cells[j-1][i-1]=Sheet.OlePropertyGet("Cells",i,j); 
   if (!Excel.IsEmpty())
   {
     Excel.OleProcedure("Quit");
     Excel.Clear();
   }
}