1要素のサイズが分かっていて、個数も分かってるんだから一行で TFileStream に書き込めるでしょ。