anchor.diff:    Item : TAbArchiveItem; OutStream, InStream : TStream);
   begin
     AbZipFromStream(TAbZipArchive(Sender), TAbZipItem(Item), OutStream, InStream);
  +end;
  +{----------------------------------------------------------------------------}
  +procedure TAbZipArchive.DoTestHelper(Sender : TObject; Item : TAbArchiveItem);
  +begin
  +  AbTestZipItem(Sender, TAbZipItem(Item));
   end;
   
   {----------------------------------------------------------------------------}
  
positive.code:       OutStream : TStream);
      procedure DoInsertFromStreamHelper(Sender : TObject; Item : TAbArchiveItem;
        OutStream, InStream : TStream);
    public {methods}
      constructor CreateFromStream( aStream : TStream; const ArchiveName : string );
        override;
  
negative.code: implementation
  
  uses
    SysUtils, AbConst, AbExcept, AbUnzPrc, AbZipPrc;
  
  {----------------------------------------------------------------------------}
  { TAbZipArchive with Extract/Insert helpers }
  