``` unit Q2; interface uses Classes, SysUtils, DateUtils; implementation procedure YMethod(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Player.Messagebox('你点击了确定'); end; procedure NMethod(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Player.Messagebox('你点击了取消'); end; procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Player.Question('确定执行吗?', 'Q2.YMethod', 'Q2.NMethod'); end; end. ```