``` unit Q2; interface uses Classes, SysUtils; procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); implementation procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Player.RemoveExtendButton('邮件系统'); //删除一个名为“邮件系统”的按钮 //注意:删除时是顶部和底部的按钮都会处理,所以在增加的时候就不应该让按钮同名 end; end. ```