Source position: zcompres.pas line 38
function compress2(
dest: Pbyte;
var destLen: Cardinal;
const source: array of Byte;
sourceLen: Cardinal;
level: Integer
):Integer;