Именно, что "зделал":
1) это не MHT
2) если создаешь новый файл, то тип должен быть Write, а не ReadWrite
3) методы doClose и doCopyFromStream делают совершенно разные вещи.
4) первые два байта - это длина строки в типе dtPString
5) вообще-то многовато, для ветки из 9 элементов