Работа с TFileStream виснет

[cs12]

Доброго времени!

Столкнулся со странным поведением потоков данных:

procedure TLog.ProcessLog;
begin
  writeln('reading log');
  ReadLog();
  writeln('processing log');

  for var i := LastLine to sl.Count - 1 do
    {some work}

  LastLine := sl.Count;
end;

procedure TLog.ReadLog;
begin
  fs := TFileStream.Create(LogName, fmOpenRead or fmShareDenyNone);
  try
    sl.LoadFromStream(fs, TEncoding.UTF8);
    writeln('loaded');
  finally
    FreeAndNil(fs);
  end;
end;

Процедура ProcessLog вызывается каждый раз при изменении файла, сама она находится в критической секции. Странность заключается в том, что ReadLog срабатывает ровно 4 раза, всегда, до перезапуска программы. То есть выводится надпись "reading log" и всё. Проблемная строка - sl.LoadFromStream(fs, TEncoding.UTF8);. Программа просто не хочет идти дальше. Никаких ошибок, надпись "loaded" не выводится, как и прочие обёртки вроде try .. except, как будто на этой строке бесконечный цикл.

В чём может быть проблема? И почему именно 4 раза?

P.S. Если чем-то поможет: это всё внутри библиотеки. Библиотека не выгружается в этот момент, судя по параллельному потоку, который подаёт признаки жизни. sl - глобальный TStringList класса TLog, создаётся в конструкторе класса, уничтожается в деструкторе.

[evg_m]

1. в критической секции.
2. в доступе у файлу.

[cs12]

evg_m,
1. Она, по сути, бесполезна, потому что с файлом работает только один поток.. да и освобождение происходит в секции finally. Но вообще, если бы в ней была проблема, до проблемной строки программа бы вообще не дошла.
2. Ну не может же доступа не быть всё время, рано или поздно файл всегда закрывается. Если файл удалить и создать заново, снова начать заполнять - ничего не меняется.

[macomics]

А что не нравится в sl.LoadFromFile напрямую?

[cs12]

macomics, стандартная блокировка fmShareDenyWrite. К слову, смысла в этом немного, потому что проблема та же

[cs12]

Решил заменить проблемную строку кодом из-под капота, чтобы определить, что именно застревает. После определения размера файла идёт выделение буфера под него SetLength(Buffer, Size); - тут и зависает. Дальше не докопаться, уже в систему глубоко уходит. Программа просто не получает место на запрос, и неясно, почему. Просто вечно ждёт.

[macomics]

Так может лучше заменить этот код на работу с системной кучей или маппингом файла?

[cs12]

macomics, да я вроде попытался

[macomics]

cs12, вроде?

[cs12]

macomics, ага