String -> JSON Encoding mit Delphi-Eigenen Mitteln

[Shark99]

Ich will mit Delphi XE5 einen String in das JSON Format konvertieren, allerdings ohne externe Komponenten.

Das geht problemlos mit einem Objekt:

Delphi-Quellcode:

uses REST.Json;

...

var myObject: TDataObject;
var s: string;

...

myObject.Text := 'äö%&/';
myObject.Number := 2;

s := TJson.ObjectToJsonString(myObject);

Wie schaffe ich es mit einem String als Ausgangsbasis?