procedure CompressFTPDeflate(
    AInStream: TIdStream; 
    AOutStream: TIdStream; 
    const ALevel: Integer; 
    const AWindowBits: Integer; 
    const AMemLevel: Integer; 
    const AStrategy: Integer
);