``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin if Player.Guild <> nil then begin if Player.Guild.AddRankMember('猛虎队', '张三') then //向称号"猛虎队"里面添加一个新成员"张三" Player.Messagebox('行会成员添加成功'); end; end; ```