anchor.diff:              // this is UTF-8
               FCodePage := CP_UTF8;
               FInitalCodePage := FCodePage;
  +            Include(FState, bsFixedCodePage);
               FCharSet := DEFAULT_CHARSET;
               Inc(FPos.BytePtr);
               Exit;
  
positive.code:   FEnd.AnsiChr := FPos.AnsiChr + Length(FBuffer);
  end;
  
  //-- BG ---------------------------------------------------------- 16.12.2010 --
  procedure TBuffer.SetPostion(const Value: Integer);
  begin
  
negative.code:   TBuffArray = array of Byte;
    TBuffArray4 = array [0..3] of Byte;
  
    // BG, 11.11.2011: Issue 93: LoadStrings failure
    TBufferState = set of (
      bsFixedCodePage // ignore writing to property CodePage.
                      // Helps to ignore <META http-equiv="Content-Type" ...>,
                      // if buffer is an already converted TBuffString.
    );
  
    // BG, 17.12.2010: helps converting any kind of stream to WideChars.
    TBuffer = class
    private
  