Сортировка по датам в ListView

[X-BOND]

Нашел один примерчик от Мелкософта:
http://support.microsoft.com/default.aspx?scid=kb;en-us;170884

Но у меня он не работает, вылетает с "отчетом". Причем имя модуля, вызвавшего ошибку называет "Unknown".

Может есть другой вариант, более безопасный?

(проект в CorelDRAW11)