Я подумаю. Пока работает, вот и пусть работает.

--- Добавлено в 2018-11-22 23:23:16

Почитал про эту функцию. В TStreamAdapter вообще куча лишнего напихана, там больше половины функций не работают у нас.