anchor.diff:           MyPosition:= 0;
            MyIndent:= '';
         {$endif}
  +//      RemoveBom(); // Remove unicode Byte Order Marker if it exists.
      end; // Init()
   
   
  
positive.code: 
  procedure tChrSource.Init();
     begin
        UngetQ:= tCharList.Create( 4, 'UngetQ');
  
        ChrBuffLen:= Stream.Read( ChrBuff, ParserBufferSize);
        ChrBuffPos:= 0;
  
negative.code:          procedure   Init(); virtual;
           procedure   InitS(); virtual;
           procedure   ParseAddChr( C: char); virtual;
           procedure   RemoveBom(); // Remove the Byte Order Mark for unicode
        public
           function    PeekChr(): char; virtual;
           function    GetChr(): char; virtual;
  