anchor.diff:    THTMLReportBuilder = class (TInterfacedObject, IReportBuilder, ITemplatableTextReport)
       strict private
         FOutput : TStream;
  +      FOwnsOutput : Boolean;
         FTemplate : ITextReportTemplate;
       private
         function  Encode(const Value : String) : String;
  
positive.code:   WriteLine('<div id="' + STR_HTML_REPORT_ROOT_ID + '">');
  end;
  
  constructor THTMLReportBuilder.Create(Output : TStream);
  begin
    inherited Create;
  
    FOutput := Output;
  end;
  
  function THTMLReportBuilder.Encode(const Value : String) : String;
  
negative.code:       function  GenerateHTMLHead : String;
        procedure WriteLine(const Text : String);
      public
        constructor Create(Output : TStream; OwnsOutput : Boolean = False);
        destructor Destroy; override;
  
        procedure AddFooter(FinishTime : TDateTime);
        procedure AddHeader(const Title : String; StartTime : TDateTime);
  