anchor.diff:    ExtractToStreamHelper := DoExtractToStreamHelper;
     InsertHelper := DoInsertHelper;
     InsertFromStreamHelper := DoInsertFromStreamHelper;
  +  TestHelper := DoTestHelper;
   end;
   {----------------------------------------------------------------------------}
   procedure TAbZipArchive.DoExtractHelper(Sender : TObject;
  
positive.code: begin
    Result := VerifyZip(aStream);
  end;
  
  {----------------------------------------------------------------------------}
  { TAbZipDecompressTest }
  
negative.code: implementation
  
  uses
    SysUtils, AbConst, AbExcept, AbUnzPrc, AbZipPrc;
  
  {----------------------------------------------------------------------------}
  { TAbZipArchive with Extract/Insert helpers }
  