anchor.diff:    FReady := Result;
   end;
   {--------}
  -procedure TAbZipDecryptEngine.zdeInitState(const aPassphrase : string);
  +procedure TAbZipDecryptEngine.zdeInitState(const aPassphrase : AnsiString);
   var
     i : integer;
   begin
  
positive.code:         {-decodes a buffer}
  
        function VerifyHeader(const aHeader     : TAbZipEncryptHeader;
                              const aPassphrase : string;
                                    aCheckValue : longint) : boolean;
          {-validate an encryption header}
      end;
  
negative.code:       FReady : boolean;
        FState : array [0..2] of longint;
      protected
        procedure zdeInitState(const aPassphrase : AnsiString);
      public
        constructor Create;
  
  