``` unit Q56; interface uses Classes, SysUtils; procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); implementation procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin //添加一个延迟调用 Player.DelayCallMethod('Q56.TestDelayCallMethod'{要调用的函数名}, 1000{延迟时间1000毫秒}, False{切换地图不删除该延迟调用}); //删除一个延迟调用 Player.DeleteDelayCallMethod('Q56.TestDelayCallMethod'); end; end. ```