anchor.diff:    end
     else
       StringStream := TStringStream(SourceStream);
  -  FLexer.Origin := PChar(StringStream.DataString);
  +  FLexer.Origin := PChar(StringStream.GetDataString);
     ParseFile;
     if OwnStream then
       StringStream.Free;
  
positive.code: end;
  
  end.
  
  
negative.code:   end
    else
      Result := Self.FEncoding.GetString(Bytes, 0, Size);
  end;
  {$ELSE}
  function TStringStreamHelper.GetDataString: string;
  var
    Encoding: TEncoding;
    Bytes: TBytes;
  begin
    Encoding := nil;
    SetLength(Bytes, Self.Size);
    Bytes := BytesOf(DataString);
    TEncoding.GetBufferEncoding(Bytes, Encoding);
    Result := Encoding.GetString(Bytes, Length(Encoding.GetPreamble), Size);
  end;
  {$ENDIF}
  
  