procedure CompressStream(
    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
);