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