procedure CompressStream(
    AInStream: TIdStream; 
    AOutStream: TIdStream; 
    const ALevel: TIdCompressionLevel; 
    const AWindowBits: Integer; 
    const AMemLevel: Integer; 
    const AStrategy: Integer
); override;