Задачка №26

Я тут обругался страшно на одно "нововведение" в библиотеке ZLib.

Упражнение: что не так в этом коде? В предположении, что все параметры указаны верно. Функция, если что, возвращает Z_OK:

function InitDeflate(const ACompressionLevel: Byte): TZStreamRec;
var
  Code: Integer;
begin
  FillChar(Result, SizeOf(Result), 0);
  Code := System.ZLib.deflateInit_(Result, ACompressionLevel, zlib_version, SizeOf(TZStreamRec));
  
  // ... далее идёт анализ Code
  // в данном случае Code = Z_OK
end;

Бонус-упражнение: найдите описание этого поведения в документации к ZLib.