function deflateTune(
    var strm: TZStreamRec; 
    good_length: Integer; 
    max_lazy: Integer; 
    nice_length: Integer; 
    max_chain: Integer
): Integer; cdecl;