Поиск в TList<Integer>

[Puhovoi]

Доброго времени суток!

Создаю лист, наполняю integer значениями (> 10 млн.).

var
  List : TList<Integer>;
begin
  List := TList<Integer>.Create;

Затем хочу проверить тысяч 10 значений на существование в списке. Метод indexof () работает медленно (10 сек. на 200 проверенных значений). List.Sort пробовал после заполнения.

Прошу помощи в реализации поиска.

Заранее спасибо за ответы.

[Puhovoi]

Наковырял.

List.Sort;
List.BinarySearch (Value, Index);

По 5 млн. массиву ищет 1 млн значений за 0.12 сек.