anchor.diff:  begin
     inherited Create;
   
  -  FSeverityThreshold := SEVERITY_MIN;
  +  FSeverityThreshold := GetDefaultSeverityThreshold;
   end;
   
   procedure TAbstractLogOutput.EndSection(const Msg : String);
  
positive.code:   end;
  end;
  
  function TAbstractLogOutput.GetSeverityThreshold : TLogMsgSeverity;
  begin
    Result := FSeverityThreshold;
  
negative.code:       procedure DoEndSection(const Msg : String); virtual; abstract;
        procedure DoWriteMessage(Severity : TLogMsgSeverity; const Msg : String); virtual; abstract;
      protected
        function GetDefaultSeverityThreshold : TLogMsgSeverity; virtual;
  
        property SectionLevel : Integer read FSectionLevel;
      public
        constructor Create; virtual;
  