anchor.diff:    FPassword := aPassword;
   end;
   {----------------------------------------------------------------------------}
  -procedure TAbZipCompressTest.ExtractHelper(Sender : TObject;
  -  Item : TAbArchiveItem; const NewName : string);
  -begin
  -  AbUnzip(Sender, TAbZipItem(Item), NewName);
  -end;
  -{----------------------------------------------------------------------------}
  -procedure TAbZipCompressTest.InsertHelper(Sender : TObject;
  -  Item : TAbArchiveItem; OutStream : TStream);
  -begin
  -  AbZip(TAbZipArchive(Sender), TAbZipItem(Item), OutStream);
  -end;
  -{----------------------------------------------------------------------------}
   procedure TAbZipCompressTest.TestCompress;
   var
     Zip: TAbZipArchive;
  
positive.code:   Zip := TAbZipArchive.Create(FFileName, fmOpenRead or fmShareDenyNone);
    try
      Zip.OnProcessItemFailure := ItemFailure;
      Zip.ExtractHelper := ExtractHelper;
      Zip.BaseDirectory := TestTempDir;
      Zip.Password := 'password';
      Zip.Load;
  
negative.code:   Zip := TAbZipArchive.Create(TestTempDir + 'test.zip', fmCreate);
    try
      Zip.CompressionMethodToUse := FMethod;
      Zip.BaseDirectory := FSourceDir;
      Zip.Password := FPassword;
      Zip.AddFiles('*', faAnyFile);
  