function deflateEnd(var strm: TZStreamRec): Integer;

int deflateEnd(TZStreamRec strm);