ReadSection() иногда читает секцию ini-файла не полностью

[igrnd]

В программе, написанной давным-давно на Delphi 7, вдруг возникла ошибка. Оказалось, что при чтении значений из текстового файла (ini-файл) с помощью функций ReadSection или ReadSectionValues в секциях с большим количеством строк могут не считываться все значения. Опытным путем выяснил, что такое поведение функций зависит от содержания секции.
Поиск решения проблемы на форуме и в интернете ничего не дал. Набросал небольшой пример, чтобы показать наглядно чтение 1000 строк в зависимости от длины строки. Фрагмент кода чтения секции:

if FileExists(FileName) then  
        try  
           bdfile:=TIniFile.Create(FileName);  
           bd:=TStringList.Create;  
           if bdfile.SectionExists('First') then  
              bdfile.ReadSection('First',bd);  
           ShowMessage('Зарезервированный объем: '+IntToStr(bd.Capacity));  
           ShowMessage('Считано строк: '+IntToStr(bd.Count));  
        finally  
          bdfile.Free;  
          bd.Free;  
        end;

В примере из первого файла читаются все строки, из второго - только 656. В реальных файлах может быть несколько сотен строк разной длины (в среднем примерно 50 символов), одинаковых нет. Проблемы появляются уже при 7-8 сотнях.
С чем может быть связано такое поведение функции и как его побороть?

[Аватар]

TIniFile c ограничениями, наверно из-за них
макс строка = 2 Kb
макс файл = 64 Kb (вроде, или 32, точно не помню)

TMemIniFile не имеет этих ограничений

[igrnd]

Сообщение от Аватар

TIniFile c ограничениями, наверно из-за них
макс строка = 2 Kb
макс файл = 64 Kb (вроде, или 32, точно не помню)

TMemIniFile не имеет этих ограничений

Спасибо, буду пробовать TMemIniFile.

[igrnd]

Использование TMemIniFile полностью решило проблему, а заодно и немного ускорило работу приложения. Спасибо.