anchor.diff:      function AsInteger(aDefault: Integer): Integer; overload;
       function AsString: string; overload;
       function AsString(aDefault: string): string; overload;
  +
  +    // Added for KMR !
  +    class function New(aValue: string): TSimpleVariant; static;
     end;
   
     TXmlVerySimple = class;
  
positive.code: ﻿{ VerySimpleXML v2.0.4 - a lightweight, one-unit, cross-platform XML reader/writer
    for Delphi 2010 - 10.2.2 Tokyo by Dennis Spreen
    http://blog.spreendigital.de/2014/09/13/verysimplexml-2-0/
    (c) Copyrights 2011-2018 Dennis D. Spreen <dennis@spreendigital.de>
  
negative.code:                    IntToStr(HourOf(A)) + ':' + IntToStr(MinuteOf(A)) + ':' + IntToStr(SecondOf(A));
  end;
  
  // Added for KMR !
  class function TSimpleVariant.New(aValue: string): TSimpleVariant;
  begin
    Result.fValue := aValue;
  end;
  
  { TStreamReaderHelper }
  
  procedure TStreamReaderHelper.GetFillBuffer(var Method: TStreamReaderFillBuffer);
  