Доброго времени суток!
Вобщем вопрос таков, существует ListView в режиме репортс, в него постоянно добавляются и удаляются итемы (3 колонки текстовых данных). Добавление происходит из отдельного потока через синхронизацию. Все бы ничего, но когда итемов 100-200 начинает подвисать.  Во время работы программы необходимо выполнять сортировку данных по 3м столбцам. Сортировку выполняю в OnCompare, в OnCustomDrawItem выполняю изменение цвета текста на канве итема.
Время изменения данных в листвью от 500 мс до 5 секунд. После каждого изменения необходимо выполнять пересортировку.

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

Использую Delphi 2007.