TZStreamRec = packed record
next_in: PChar;
avail_in: Integer;
total_in: Integer;
next_out: PChar;
avail_out: Integer;
total_out: Integer;
msg: PChar;
internal: Pointer;
zalloc: TAlloc;
zfree: TFree;
AppData: Pointer;
data_type: Integer;
adler: Integer;
reserved: Integer;
end;