function deflateInit_(var strm: TZStreamRec; level: Integer; version: PChar; recsize: Integer): Integer;

int deflateInit_(TZStreamRec strm, int level, const char * version, int recsize);