anchor.diff:    else
       Template := THTMLReportCustomTemplate.Create(FConfigData.CustomTemplateFileName);
   
  -  FReportOutput := TFile.CreateText(FConfigData.OutputDirectory + FConfigData.OutputFileName);
     Report := THTMLReportBuilder.Create(FReportOutput.BaseStream);
     Report.SetTemplate(Template);
   
  
positive.code:   inherited Create;
  
    FMessages := TDictionary<TFileName, TArray<TFixInsightMessage>>.Create;
  
    FConfigData := ConfigData;
    FFixInsightXMLParser := TFixInsightXMLParser.Create;
  
negative.code:     .AddTransition(asReportBuilt, asArchiveMade, acMakeArchive,
        procedure (const PreviousState, CurrentState : TApplicationState; const UsedCommand : TApplicationCommand)
        var
          sArchiveFileName : TFileName;
          ZF : TZipFile;
        begin
          with StateHolder do
            if FConfigData.MakeArchive then
            begin
              sArchiveFileName := FReportFileName + STR_ARCHIVE_FILE_EXT;
  
              if TFile.Exists(sArchiveFileName) then
                TFile.Delete(sArchiveFileName);
  
              ZF := TZipFile.Create;
              try
                ZF.Open(sArchiveFileName, zmWrite);
                ZF.Add(FReportFileName);
                ZF.Close;
              finally
                ZF.Free;
              end;
  
              DeleteFile(FReportFileName);
            end;
        end
      )
  