function GetItem(const NameOrIndex : Variant) : TMenuItem;
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; if popUpDoku.GetItem('MenuItem') then begin popupDoku.AddItem('Submenu', 'Sub', 'MenuItem', 1,1); end; end;