这段DELPHI代码怎么写？

数据库里有很多记录有重复的，我想把重复的挑出来，然后把这些重复的数据删掉，但需保留一个