void __fastcall TForm1::Button1Click(TObject *Sender)
{
TMenuItem *Nuevo = new TMenuItem(MainMenu1);
Nuevo->Caption = "Insertado" + IntToStr(random(100));
Archivo1->Add(Nuevo);
Nuevo->OnClick = MiOnClick;
}
void __fastcall TForm1::MiOnClick(TObject *Sender)
{
ShowMessage("Click en item creado");
}