Delphi-Quellcode:
Size := TFNode.GetData.Size;
// TFStream.Position := FilePos;
TFStream.Write(Level, 2);
TFStream.Write(Size, 2);
TFStream.Write(TFNode.GetData.PData^, Size);
// FilePos := TFStream.Position;
Schmeiß das FilePos raus, es wird nicht benötigt. Ansonsten sehe ich keinen Fehler.
Gruß Hagen