``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Player.AddTitle('初入江湖'); //添加一个称号 Player.SetActiveTitle(''); //设置当前称号为空 Player.SetActiveTitle('初入江湖5'); //将称号"初入江湖5"设置为当前称号 Player.RemoveTitle('初入江湖1'); //删除一个称号 end; ```