Создание и удаление пунктов меню динамически

TMenuItem * a =  MainMenu1->CreateMenuItem();
TMenuItem * b =  new TMenuItem(a);
a->Caption = "Меню";
b->Caption = "Подменю";
MainMenu1->Items->Add(a);
a->Add(b);

TMenuItem *mnu = new TMenuItem(MainMenu1);
mnu->OnClick = MnuClick;
mnu->Name = "NemMnu" + IntToStr(MainMenu1->Items->Count);
mnu->Caption = "Новое меню " + IntToStr(MainMenu1->Items->Count);
//mnu->Name = "NemMnu" + IntToStr(mnuOne->Count + 1);
//mnu->Caption = "Новое меню " + IntToStr(mnuOne->Count + 1);
MainMenu1->Items->Add(mnu);
//mnuOne->Insert(mnuOne->Count,mnu);

MainMenu1->Items->Delete(4);
//mnuOne->Delete(1);

N1->Visible = DirectoryExists("C:\\Папка\\Твоя_папка"); // где N1 имя созданной тобой кнопки в MainMenu

void __fastcall TForm1::FormPaint(TObject *Sender)
{
   bool vi = DirectoryExists(".\\test");
   N2->Visible = vi ;
   N3->Visible = !vi ;
}

int iTmp = -1; //Индекс создаваемого пункта меню
bool bTmp = false;
...
//---------------------------------------------------------------------------
void __fastcall TForm1::MnuClick(TObject *Sender)
{
   ShowMessage(((TMenuItem *)Sender)->Caption);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  if(DirectoryExists("C:\\TMP\\111"))
   {
     if(! bTmp)
      {
        TMenuItem *mnu = new TMenuItem(MainMenu1);
        mnu->OnClick = MnuClick;
        mnu->Name = "NemMnu" + IntToStr(MainMenu1->Items->Count);
        mnu->Caption = "Folder 111";
        iTmp = MainMenu1->Items->Count;
        bTmp = true;
        MainMenu1->Items->Add(mnu);
      }
     else return;
   }
  else
   {
     if(bTmp)
      {
        TMenuItem *ItemToDelete = MainMenu1->Items->Items[iTmp];
        delete ItemToDelete;
        bTmp = false;
      }
   }
  Application->ProcessMessages();
}