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