如何给POPUPMENU动态添加项

怎么给POPUPMENU动态添加项
TPopupMenu *ppmSurvey = new TPopupMenu(this);

TMenuItem *ppItemSurvey1 = new TMenuItem(ppmSurvey);
ppItemSurvey1->Caption = "激活问卷";
ppItemSurvey1->OnClick =  ppItemSurvey1_Click;

我再添加TMenuItem的时候，没有显示出来

TMenuItem *ppItemSurvey2 = new TMenuItem(ppmSurvey);
ppItemSurvey2->Caption = "回拨";
ppItemSurvey2->OnClick =  ppItemSurvey2_Click;

[解决办法]

TMenuItem *ppItemSurvey1 = new TMenuItem(ppmSurvey);
 ppItemSurvey1->Caption = "激活问卷";
 ppItemSurvey1->OnClick =  ppItemSurvey1_Click;

ppmSurvey->Items->Add(ppItemSurvey1);