Delphi如何实现一个长尾词的记录列表功能?