Delphi传递序数参数,如何实现长尾词的?