Здравствуйте, rudzuk, Вы писали:

R>

result:=TObject(fsubitems[index]) as tfragmentnode;

Можете объяснить, в чём разница с tfragmentnode(fsubitems[index])?

Я ещё раз посмотрел — да если скомпилировать в Win32, то sizeof(pointer) и sizeof(tobject) будут по 4 байта, а если в Win64, то по 8 байт. Даже если тут нет явной ошибки, то явно надо с такими вещами быть осторожнее.

K>>

K>> stream.Read(intbuff,sizeof(intbuff));
K>> setlength(fragment^.atoms,intbuff);
K>>

K>> После этого на записи length(fragment^.atoms) возвращается нулевым.

R>А inputbuf чему равен?

Ну не нулю, это размер строки, записанный в файле.