popupMenu.ClearItems;
procedure additem; begin if CurrentUserHasPermission(53000) then begin popupDoku.ClearItems; popUpDoku.AddItem('MenuItem', 'Eintrag 1', ,1,1 ); popUpDoku.AddItem('MenuItem2', 'Eintrag 2', ,1,1 ); popUpDoku.AddItem('MenuItem3', 'Eintrag 3', '',1,1 ); end; end;