А нельзя сделать просто?
S := JsonString; UniqueString( s );
<pre>
<code>
<asm>
<c>
<cpp>
<delphi>
<drupal5>
<drupal6>
<java>
<javascript>
<php>
<python>
<ruby>
<mytext>
<foo>
[foo]
Подробнее о форматировании
Буффер
А нельзя сделать просто?
S := JsonString; UniqueString( s );