``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Player.DeleteUseItem(wHelmet); //直接将头盔位置的物品彻底删除 end; ```