StringList err: Integer Overflow 1,8 млн строк

[iskurt]

Добрый день.
Есть необходимость перечитать *.csv файл размером 1,8 млн строк.
100000 строк перечитываю ооочень быстро, меньше секунды, а вот с большим количеством траблы - Integer Overflow. Пробовал создавать приложение х64 - не помогло.
Я понимаю что переполнения Integer.
Сколько же строк и какой длины можно загнать в StringList?
Как решить данный вопрос?
Читал про "маппинг" - мало чего понял.. может кто на пальцам разжует?

var
  lst: TStringList;
  t1, t2: String;
begin
  FOD1.Execute;   // выбираем файл
  Edit1.Text := FOD1.filename;  // получаем путь к файлу
  lst := TStringList.Create;    // создаем стринглист
  t1 := DateTimeToStr(Now());   // засекаем начальное время
  lst.LoadFromFile(Edit1.Text); // перечитываем файл
  t2 := DateTimeToStr(Now());   // засекаем конечное время
  ShowMessage(t1 + '----' + t2);// выводим время
  lst.Free;
end;

[Shouldercannon]

Максимальная длинна строки и макс.кол-во строк

[iskurt]

хм, странно
===
~ 2^31 - 1
TStringList может вместить до 134'217'728 строк (MaxListSize +1).
(размер колеблется в зависимости от версии Windows)
===

Оперативки 8гиг, дома 32 гига, результат одинаковый. Win 10x64
Помогите плиз разобраться.

Быть может кодировка играет роль? Стоит кодировка ANSI