procedure AddItem(aName: string aCaption: string aParent: string aResNo: integer, aTag: integer);
procedure additem; begin popUpDoku.AddItem('MenuItem2', 'Eintrag 2', '',1,1); end;