anchor.diff:  
   procedure THTMLReportBuilder.Initialize(Output : TStream);
   begin
  -  // TODO: implement {THTMLReportBuilder.Initialize}
  +  FOutput := Output;
  +
  +  FOutput.Position := 0;
  +  FOutput.Size := 0;
   end;
   
   end.
  
positive.code:   end;
  
  implementation
  
  { THTMLReportBuilder }
  
  
negative.code: type
  
    THTMLReportBuilder = class (TInterfacedObject, IReportBuilder)
      strict private
        FOutput : TStream;
      public
        procedure AddFooter(FinishTime : TDateTime);
        procedure AddHeader(const ProjectTitle : String; StartTime : TDateTime);
  