Открытие закрытие Excel

При клике по кнопке отрывается Excel пользователь работает с ним и закрывает когда необходимо
При повтором клике выдает ошибку raised exception class EAccess violation at adress 016C2A2D in module dd.dll . Read of adress 00000000 Process Stoped.
Use Step or Run to continue

Это функция при клике
void __fastcall Tsinh_tab::P1Click(TObject *Sender)
{
  sinh_tab->ExcelApplication1->Connect();
  sinh_tab->ExcelApplication1->Workbooks->Add("", 0);
  sinh_tab->ExcelWorkbook1->ConnectTo(sinh_tab->ExcelApplication1->ActiveWorkbook);
  sinh_tab->ExcelWorksheet1->ConnectTo(sinh_tab->ExcelWorkbook1->ActiveSheet);
  sinh_tab->ExcelApplication1->Set_Visible(0, true);
}

Когда пользователь закрывает Excel я вызываю следующую функцию иначе при закрытии Excel процесс Excel остается висеть

void __fastcall Tsinh_tab::ExcelApplication1WorkbookDeactivate(
      TObject *Sender, ExcelWorkbookPtr Wb)
{
sinh_tab->ExcelWorksheet1->Free();
sinh_tab->ExcelWorkbook1->Free();
sinh_tab->ExcelApplication1->Disconnect();
sinh_tab->ExcelApplication1->Quit();
sinh_tab->ExcelApplication1->Free();
}

sinh_tab- это моя форма.
как можно сделать что бы повторно запускать Excel?