Внимательно смотри какие компоненты какие данные выдают. Диалог в поток выдаёт имя файла (а выход с StrToStream теряется). Для doCopyFromStream нужно в потоке передать Stream. Тогда имя файла можно только подать на верхнюю точку, для чего оно сначала сохраняется в Memory.
code_35818.txt
dtLeadingString. Возможно стоит dtStringLen в режиме записи поправить, чтобы не учитывал Count и писал строку целиком...