PopupMenu, в событии SubItem->Click узнать tag у Item

if (Button == mbRight) {
 
 
   if (flagPOP == false) {
 
         TStringList * listPL = new TStringList();
         listPL->LoadFromFile("simple.txt");
         for (int i  = 0; i < listPL->Count; i++) {
           TMenuItem * It = new TMenuItem(this);
           It->Caption = listPL->Strings[i];
 
           pmEDIT->Items->Add(It);
           TStringList * listTR = new TStringList();
           listTR->LoadFromFile(It->Caption+".txt");
           for (int j = 0; j < listTR->Count; j++) {
               TMenuItem *sIt = new TMenuItem(this);
               sIt->Caption = ExtractFileName(listTR->Strings[j]);
               sIt->OnClick = Form2->popup;                  // добавляем событие
               pmEDIT->Items->Items[i]->Add(sIt);
 
           }
           delete listTR;
         }
      delete listPL;
      flagPOP = true;
   }
 }
 
void __fastcall TForm2::popup(TObject *Sender) {
 ShowMessage("Click");
                                // здесь нужно узнать какой тэг у SubItem и родительского Item. 
}

void __fastcall TForm1::popup(TObject *Sender)
{
    TMenuItem *item = static_cast<TMenuItem*>(Sender);
    TMenuItem *parent = item->Parent;
    ShowMessage("Click " + IntToStr(item->Tag) + " " + IntToStr(parent->Tag));
}

dynamic_cast<TComponent *>(Sender)->Tag;

TComponent *  Component = dynamic_cast<TComponent *>(Sender);
if(Component)  /* А в друг не кастуется  к TComponent ? */
 {
  int tag  = Component->Tag;
  //....
 }

void __fastcall TForm2::popup(TObject *Sender) {
 //ShowMessage("Click");
  TMenuItem *item = static_cast<TMenuItem*>(Sender);
    TMenuItem *parent = item->Parent;
    ShowMessage("Click " + IntToStr(item->Tag) + " " + IntToStr(parent->Tag));
}