with TFileStream.Create('array.dat', fmCreate or fmOpenWrite) do begin
  WriteBuffer(a, SizeOf(a));
  Free;
end;