Перекодировка текста

    i:=pos('\u',s);
    while i>0 do
    begin
      s:=Copy(s,1,i-1) + Char(StrToIntDef('$'+Copy(s,i+2,4),32))+copy(s,i+6, Length(s));
      i:=pos('\u',s);
    end;

//Функция выполняет преобразование:
//\u042d\u0442\u043e\u0020\u043f\u0440\u0438\u043c\u0435\u0440' -> 'Это пример'.
function UStrToWideStr(const aUStr : String) : WideString;
var
  i, j, Len : Integer;
begin
  Len := Length(aUStr) div 6;
  SetLength(Result, Len);
  j := 3;
  for i := 1 to Len do
  begin
    Result[i] := WideChar( StrToInt('$' + Copy(aUStr, j, 4)) );
    Inc(j, 6);
  end;
end;
 
{Проверка.
В Memo1 записан текст в следующем виде: \u043f\u0440\u0438\u043c\u0435\u0440
В Memo2 выводится результат преобразования текста из Memo1.}
procedure TForm1.Button1Click(Sender: TObject);
begin
  {Если String = AnsiString, то преобразование WideString -> AnsiString выполнится
  автоматически при присвоении.}
  Memo2.Text := UStrToWideStr( Trim(Memo1.Text) );
end;

uses DBXJSON;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
  JSON: TJSONValue;
begin
  s := '"\u0421\u043a\u0430\u0439\u0440\u0438\u043c"';
  JSON := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(s), 0);
  ShowMessage(JSON.ToString);
end;