anchor.diff:    CreateDir(TargetDir);
     Zip := TAbZipArchive.Create(TestTempDir + 'test.zip', fmOpenRead or fmShareDenyNone);
     try
  -    Zip.ExtractHelper := ExtractHelper;
       Zip.BaseDirectory := TargetDir;
       Zip.Password := FPassword;
       Zip.Load;
  
positive.code:   FFileName := aFileName;
  end;
  {----------------------------------------------------------------------------}
  procedure TAbZipDecompressTest.ExtractHelper(Sender : TObject;
    Item : TAbArchiveItem; const NewName : string);
  begin
    AbUnzip(Sender, TAbZipItem(Item), NewName);
  end;
  {----------------------------------------------------------------------------}
  procedure TAbZipDecompressTest.ItemFailure(Sender : TObject;
    Item : TAbArchiveItem; ProcessType : TAbProcessType;
    ErrorClass : TAbErrorClass; ErrorCode : Integer);
  
negative.code:   FPassword := aPassword;
  end;
  {----------------------------------------------------------------------------}
  procedure TAbZipCompressTest.TestCompress;
  var
    Zip: TAbZipArchive;
  