anchor.diff:        FReportBuilder : IReportBuilder;
         FReportOutput : TStreamWriter;
         FTaskManager : TTaskManager;
  +
  +      FMessages : TDictionary<TFileName, TArray<TFixInsightMessage>>;
  +      FProjects : TArray<TFileName>;
  +      FReports : TArray<TPair<TFileName, TFileName>>;
   
         procedure InitReportBuilder;
       public
  
positive.code: 
  uses
    System.IOUtils,
    FIToolkit.Reports.Builder.HTML, FIToolkit.Reports.Parser.Types;
  
  { TWorkflowStateHolder }
  
  constructor TWorkflowStateHolder.Create(ConfigData : TConfigData);
  begin
    inherited Create;
  
    FConfigData := ConfigData;
    FFixInsightXMLParser := TFixInsightXMLParser.Create;
  
negative.code:     .AddTransition(asInitial, asProjectGroupParsed, acParseProjectGroup,
        procedure (const PreviousState, CurrentState : TApplicationState; const UsedCommand : TApplicationCommand)
        begin
          with StateHolder do
            FProjects := FProjectGroupParser.GetIncludedProjectsFiles;
        end
      )
      .AddTransition(asProjectGroupParsed, asFixInsightRan, acRunFixInsight,
        procedure (const PreviousState, CurrentState : TApplicationState; const UsedCommand : TApplicationCommand)
        begin
          with StateHolder do
          begin
            FTaskManager := TTaskManager.Create(FConfigData.FixInsightExe, FConfigData.FixInsightOptions,
              FProjects, FConfigData.TempDirectory);
            FReports := FTaskManager.RunAndGetOutput;
          end;
        end
      )
      .AddTransition(asFixInsightRan, asReportsParsed, acParseReports,
        procedure (const PreviousState, CurrentState : TApplicationState; const UsedCommand : TApplicationCommand)
        var
          R : TPair<TFileName, TFileName>;
        begin
          with StateHolder do
            for R in FReports do
            begin
              FFixInsightXMLParser.Parse(R.Value, False);
              FMessages.Add(R.Key, FFixInsightXMLParser.Messages.ToArray);
            end;
        end
      )
      .AddTransition(asReportsParsed, asReportBuilt, acBuildReport,
        procedure (const PreviousState, CurrentState : TApplicationState; const UsedCommand : TApplicationCommand)
        var
          Msg : TFixInsightMessage;
        begin
          with StateHolder do
          begin
            // TODO: implement {TExecutiveTransitionsProvider.PrepareWorkflow}
          end;
        end
      )
      .AddTransition(asReportBuilt, asFinal, acTerminate,
  