Delphi中,如何将Variants数组传递TObject,实现长尾词?