anchor.diff:    Zip := TAbZipArchive.Create(TestTempDir + 'test.zip', fmCreate);
     try
       Zip.CompressionMethodToUse := FMethod;
  -    Zip.InsertHelper := InsertHelper;
       Zip.BaseDirectory := FSourceDir;
       Zip.Password := FPassword;
       Zip.AddFiles('*', faAnyFile);
  
positive.code: 
  uses
    SysUtils, AbConst, AbUnzPrc, AbZipPrc;
  
  {----------------------------------------------------------------------------}
  { TAbZipArchiveTests }
  
negative.code:   FFileName := aFileName;
  end;
  {----------------------------------------------------------------------------}
  procedure TAbZipDecompressTest.ItemFailure(Sender : TObject;
    Item : TAbArchiveItem; ProcessType : TAbProcessType;
    ErrorClass : TAbErrorClass; ErrorCode : Integer);
  