Сервер автоматизации Excel и TextBox1

//---------------------------------------------------------------------------
void __fastcall TFMain::Button2Click(TObject *Sender)
{
    ExcelInit("");
    App.OlePropertyGet("WorkSheets",1).OleProcedure("Select");
    int Nom = DM->Nastroiki->FieldByName("NOMZAVREM")->AsInteger+1;
 
    //вот здесь
 
    Variant Chart = App.OlePropertyGet("Charts",1);
    Chart.OlePropertySet("Value",WideString("Привет"));     //ошибка
 
    App.OlePropertyGet("Range",WideString("TextBox1")).OlePropertySet("Value",WideString("Привет"));     //так тоже ошибка
 
 
    toExcel(App,AnsiString("nom").c_str(),Nom);
    App.OlePropertySet("Visible",true);
}
//------------------------------------------------------------
void __fastcall TFMain::ExcelInit(String File)
{
     AnsiString sFile;
     sFile = GetCurrentDir()+"\\ZavRem.xltm";
      try
     {
          App=Variant::GetActiveObject("Excel.Application");
     }
     catch(...)
     {
         try
         {
             App=Variant::CreateObject("Excel.Application");
             Sleep(100);
         }
         catch (...)
         {
             Application->MessageBox("Íåâîçìîæíî îòêðûòü Microsoft Excel!"
                                     " Âîçìîæíî ýòîãî ïðèëîæåíèÿ íà êîìïüþòåðå íå óñòàíîâëåíî.","Îøèáêà",MB_OK+MB_ICONERROR);
         }
     }
   try {
    if(sFile!="")
       App.OlePropertyGet("WorkBooks").OleFunction("Add",sFile.c_str());
   else
     App.OlePropertyGet("WorkBooks").OleProcedure("Add");
 
 
    Sh=App.OlePropertyGet("WorkSheets",1);
    fStart=true;
  } catch(...) {
    Application->MessageBox("Îøèáêà îòêðûòèÿ êíèãè Microsoft Excel!",
                                         "Îøèáêà",MB_OK+MB_ICONERROR);
  }
}
//--------------------------------------------------------------------------

     Variant C = App.OlePropertyGet("WorkSheets",1);
        C.OlePropertyGet("Shapes").OlePropertyGet("Range",WideString("TextBox1")).OleProcedure("Select");