Delphi图标螺纹加载,如何实现长尾词功能?