anchor.diff:            // swap the 2 bytes of one char.
             FCodePage := CP_UTF16BE;
             FInitalCodePage := FCodePage;
  +          Include(FState, bsFixedCodePage);
             FCharSet := UNKNOWN_CHARSET;
             Inc(FPos.WordPtr);
             Exit;
  
positive.code:           // this is little endian unicode
            FCodePage := CP_UTF16LE;
            FInitalCodePage := FCodePage;
            FCharSet := UNKNOWN_CHARSET;
            Inc(FPos.WordPtr);
            Exit;
  
negative.code:     procedure Reset;
      procedure SetStream(Stream: TStream); {$ifdef UseInline} inline; {$endif}
      procedure SetPostion(const Value: Integer); {$ifdef UseInline} inline; {$endif}
      procedure SetCharSet(const Value: TBuffCharSet);
      procedure SetCodePage(const Value: TBuffCodePage);
    protected
    public
      constructor Create(Stream: TStream; Name: TBuffString = ''); overload;
  