Delphi Parse Json

DelphiParseJson.pas

DecodeJsonUnicodeBytes(const unicodeByteStr: String): String;
var
  LJSONObject: TJSONValue;
begin
  try
    LJSONObject := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes('{"alias":"'+unicodeByteStr+'"}'), 0, true);
    Result := LJSONObject.GetValue<String>('alias');
  finally
    LJSONObject.Free;
  end;
end;