anchor.diff:        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;
  
positive.code:   end;
  end;
  
  function TAbstractLogOutput.GetSeverityThreshold : TLogMsgSeverity;
  begin
    Result := FSeverityThreshold;
  
negative.code: begin
    inherited Create;
  
    FSeverityThreshold := GetDefaultSeverityThreshold;
  end;
  
  procedure TAbstractLogOutput.EndSection(const Msg : String);
  