寻求删除历史文件的方法

有一目录，下面有有多个文件，文件命名如下
-------------------------------------------
AAAAAA-0001.txt
AAAAAA-0002.txt
AAAAAA-0003.txt
AAAAAA-0004.txt
BBBBBB-0001.txt
BBBBBB-0002.txt
BBBBBB-0003.txt
BBBBBB-0004.txt
XXA-0001.txt
XXA-0002.txt
XXAA-0003.txt
XXAA-0004.txt
123-0001.txt
124-0001.txt
-------------------------------------
其中“-”前为实际名，000X为流水号，希望清理后，
每个文件都留下流水号最大的文件，象上面的例子，清理后的结果应该为
-----------------------------------------
AAAAAA-0004.txt
BBBBBB-0004.txt
XXA-0002.txt
XXAA-0004.txt
123-0001.txt
124-0001.txt
------------------------
DELPHI或批处理都行，急