TZStreamRec = packed record
  next_in: PAnsiChar;
  avail_in: Longint;
  total_in: Longint;
  next_out: PAnsiChar;
  avail_out: Longint;
  total_out: Longint;
  msg: PAnsiChar;
  state: Pointer;
  zalloc: TZAlloc;
  zfree: TZFree;
  opaque: Pointer;
  data_type: Integer;
  adler: Longint;
  reserved: Longint;
end;

struct TZStreamRec {
  PAnsiChar next_in;
  Longint avail_in;
  Longint total_in;
  PAnsiChar next_out;
  Longint avail_out;
  Longint total_out;
  PAnsiChar msg;
  void * state;
  TZAlloc zalloc;
  TZFree zfree;
  void * opaque;
  int data_type;
  Longint adler;
  Longint reserved;
};