gz_header

type gz_header = record

  text: int;

  time: uLong;

  xflags: int;

  os: int;

  extra: pBytef;

  extra_len: uInt;

  extra_max: uInt;

  name: pBytef;

  name_max: uInt;

  comment: pBytef;

  comm_max: uInt;

  hcrc: int;

  done: int;

end;