function deflateInit_(
var strm: TZStream;
level: LongInt;
version: pchar;
stream_size: LongInt
):LongInt;