Ввести путь к файлу через Edit (Excel.Application)

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Variant var_Excel, var_Sheet;
int Row_Counter = 0, Column_Counter = 0, Max_Column =10, Max_Row = 10;
AnsiString p;
p=Edit1->Text;
var_Excel=CreateOleObject("Excel.Application");
var_Excel.OlePropertyGet("Application").OlePropertyGet("Workbooks").OleProcedure("Open" , p  );//путь к файлу 
var_Excel.OlePropertySet("Visible",false);
var_Sheet = var_Excel.OlePropertyGet("ActiveSheet");
 
for (Row_Counter ; Row_Counter <= Max_Row ; Row_Counter++)
    {
      for (Column_Counter ; Column_Counter <= Max_Column  ; Column_Counter++)
          {
           StringGrid1->Cells[Column_Counter][Row_Counter] =
               var_Sheet.OlePropertyGet("Cells").OlePropertyGet("Item", Row_Counter + 1 , Column_Counter + 1);
          }
          Column_Counter = 0;
    }
var_Excel.OlePropertyGet("Application").OleProcedure("Quit");
var_Sheet = Unassigned;
var_Excel = Unassigned;
}