如何使用Delphi按GroupID对列表元素进行分类?