программа баян, хз, рипнул ты код отсюда или нет - http://www.delphisources.ru/pages/sources/system/2006_year/sorter.html , имхо да.. %)