Dodawanie opcji do menu w czasie działania programu

Aby po kliknięciu przycisku Button1 dodać w czasie działania programu opcje do menu głównego (w tym przykładzie dodajemy menu Pomoc do menu głównego wraz z opcjami):

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TMenuItem *Root = MainMenu1->Items;

   // tworzymy nową opcję menu głównego - Pomoc
   TMenuItem *HelpItem = new TMenuItem(this);
   HelpItem->Caption = "&Pomoc";

   // i dodajemy ją do głównego menu
   Root->Add(HelpItem);

   // tworzymy opcje dla menu Pomoc
   TMenuItem *ContentsItem = new TMenuItem(this);
   TMenuItem *IndexItem = new TMenuItem(this);
   TMenuItem *AboutItem = new TMenuItem(this);
   ContentsItem ->Caption = "&Spis treści";
   IndexItem ->Caption = "&Indeks";
   AboutItem ->Caption = "&O programie ...";

   // i dodajemy je do menu Pomoc
   HelpItem->Add(ContentsItem);
   HelpItem->Add(IndexItem);
   HelpItem->Add(AboutItem);
}