ein smallint ist 2 bytes gross, also musst du auch doppelt so viele bytes schreiben wie Header.DataBytes angibt:
Code:
BlockWrite(F, LoopBuffer[0], Header.DataBytes*SizeOf(SmallInt));
und steig zum arbeiten mit dateien lieber auf TFileStream um, kommt besser
edit: Kontonummer kommt dann per PN
See my shadow changing, stretching up and over me.
Soften this old armor. Hoping I can clear the way
By stepping through my shadow, coming out the other side.
Step into the shadow. Forty six and two are just ahead of me.