PopupMenu + CategoryButtons

void __fastcall TForm2::N1Click(TObject *Sender)
{
for (int i = 0; i < lDelete->Count-1; i++) {
          String sel  ; // имя нажатой категории
          if (lDelete->Strings[i] == sel) {
 
          }
}
}

void __fastcall TForm1::CategoryButtons1ContextPopup(TObject *Sender, TPoint &MousePos,
          bool &Handled)
{
    TCategoryButtons *cb = static_cast<TCategoryButtons*>(Sender);
    cb->PopupMenu->Tag =
        reinterpret_cast<int>(cb->GetCategoryAt(MousePos.x, MousePos.y));
}
 
void __fastcall TForm1::N11Click(TObject *Sender)
{
    TPopupMenu *menu = static_cast<TMenuItem*>(Sender)->GetParentMenu();
    String cat = reinterpret_cast<TButtonCategory*>(menu->Tag)->Caption;
    // ...
}

[BCC32 Error] OAZIS_FORM.cpp(1089): E2034 Cannot convert 'TMenu *' to 'TPopupMenu *'
  Full parser context
    OAZIS_FORM.cpp(1077): parsing: void _fastcall TForm2::N1Click(TObject *)
[BCC32 Error] OAZIS_FORM.cpp(1090): E2288 Pointer to structure required on left side of -> or ->*
  Full parser context
    OAZIS_FORM.cpp(1077): parsing: void _fastcall TForm2::N1Click(TObject *)

TMenu *menu = static_cast<TMenuItem*>(Sender)->GetParentMenu();