IndyCompressStream

procedure IndyCompressStream(

  InStream: TStream;

  OutStream: TStream;

  const level: Integer = Z_DEFAULT_COMPRESSION;

  const WinBits: Integer = MAX_WBITS;

  const MemLevel: Integer = MAX_MEM_LEVEL;

  const Stratagy: Integer = Z_DEFAULT_STRATEGY

);