anchor.diff:  end;
   
   end.
  -
  
positive.code:     function GetBytes: TBytes;
      property Bytes: TBytes read GetBytes;
    end;
    {$IFNDEF FPC}
      TStringStreamHelper = class helper for TStringStream
        function GetDataString: string;
        property DataString: string read GetDataString;
      end;
    {$ENDIF}
  
  function TBytesStreamHelper.GetBytes: TBytes;
  begin
  
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}
  
  