TMenuItem Tag problem

Jeg har siddet og kæmpet med samme problem i et stykke tid nu og kan ikke løse det. Jeg kan ikke se hvorfor mit Tag hele tiden bliver nul når jeg bruger de onclicks jeg har lavet.

for(unsigned int j=0; j<grp.size(); j++)
        {
         
           
          res=grp[j].group;
          TMenuItem *newItem = new TMenuItem(GroupMemberShip);
          newItem->Caption = res;
          GroupMemberShip->Insert(j,newItem);
          newItem->Tag=j;
          selt++;     
                         
          newItem->OnClick = PopupMenuItemsClick;
        }
 
        for(unsigned int j=0; j<grp.size(); j++)
        {
                   
          res=grp[j].group;
          TMenuItem *newItem1 = new TMenuItem(RemoveGroupMemberShip);
          newItem1->Caption = res;
          RemoveGroupMemberShip->Insert(j,newItem1);
          newItem1->Tag=j;
          rem++;     
                         
          newItem1->OnClick = PopupMenuItemsClick1;
        }

void __fastcall TSelectFolio::PopupMenuItemsClick(TObject *Sender)
{
  int i=GroupMemberShip->Tag;

  n_group ng;
  strcpy(ng.group,GroupMemberShip->Items[i]->Caption.c_str());
  strcpy(fi.tempgroup, ng.group);
  strcpy(fi.fo_foliono.foliono,fsr.fo_foliono.foliono);     
  connection->putGroupInfo(SaveGroup);
 
}