procedure CompressFTPToIO(
    AInStream: TIdStream; 
    AIOHandler: TIdIOHandler; 
    const ALevel: Integer; 
    const AWindowBits: Integer; 
    const AMemLevel: Integer; 
    const AStrategy: Integer
); override;