Lo siguiente asigna el Caption del formulario con el Caption del ItemMenu padre de toda la lista de submenús:
Código PHP:
void __fastcall TForm1::tres1Click(TObject *Sender)
{
TMenuItem *I = static_cast<TMenuItem*>(Sender);
while(((TMenuItem *)(I->Parent))->Parent)
I = (TMenuItem *)(I->Parent);
Caption = I->Caption;
}
Saludos.