anchor.diff:    StartTime : TDateTime;
     Title : String;
   begin
  +  SaveReportPosition;
  +
     StartTime := START_TIME;
     FHTMLReportBuilder.AddHeader(Title, StartTime);
     // TODO: Validate method results
  +
  +  CheckReportPositionIncreased;
   end;
   
   procedure TestTHTMLReportBuilder.TestAddTotalSummary;
   var
     Items : array of TSummaryItem;
   begin
  +  SaveReportPosition;
  +
     // TODO: Setup method call parameters
     FHTMLReportBuilder.AddTotalSummary(Items);
     // TODO: Validate method results
  +
  +  CheckReportPositionIncreased;
   end;
   
   procedure TestTHTMLReportBuilder.TestAppendRecord;
   var
     Item : TReportRecord;
   begin
  +  SaveReportPosition;
  +
     // TODO: Setup method call parameters
     FHTMLReportBuilder.AppendRecord(Item);
     // TODO: Validate method results
  +
  +  CheckReportPositionIncreased;
   end;
   
   procedure TestTHTMLReportBuilder.TestBeginProjectSection;
  
positive.code:   ProjectSummary : array of TSummaryItem;
    Title : String;
  begin
    // TODO: Setup method call parameters
    FHTMLReportBuilder.BeginProjectSection(Title, ProjectSummary);
    // TODO: Validate method results
  end;
  
  procedure TestTHTMLReportBuilder.TestBeginReport;
  begin
    FHTMLReportBuilder.BeginReport;
    // TODO: Validate method results
  end;
  
  procedure TestTHTMLReportBuilder.TestEndProjectSection;
  begin
    FHTMLReportBuilder.EndProjectSection;
    // TODO: Validate method results
  end;
  
  procedure TestTHTMLReportBuilder.TestEndReport;
  begin
    FHTMLReportBuilder.EndReport;
    // TODO: Validate method results
  end;
  
  procedure TestTHTMLReportBuilder.TestSetTemplate;
  
negative.code: var
    FinishTime : TDateTime;
  begin
    SaveReportPosition;
  
    FinishTime := FINISH_TIME;
    FHTMLReportBuilder.AddFooter(FinishTime);
    // TODO: Validate method results
  
    CheckReportPositionIncreased;
  end;
  
  procedure TestTHTMLReportBuilder.TestAddHeader;
  