Как быстро читать и писать в представлении списка в delphi?

В delphi есть список с несколькими полями. Поток проверяет и добавляет элементы в список. Если есть такой же заголовок, в подпункт этого заголовка будет добавлено целое число. Когда количество элементов меньше 2000, производительность в порядке. Когда проверка и добавление элементов и количество элементов превышает примерно 2000, производительность низкая. Когда количество элементов превышает 20 000, производительность можно охарактеризовать как чрезвычайно низкую. Есть ли способ быстро читать и писать в списке, когда количество элементов может достигать 50 000 или 100 000?

Заранее большое спасибо.

Редактировать:

Мы прочитали все ваши ответы и благодарим всех за вашу помощь.