procedure InsertObject(Index: Integer; Obj: TJSONObject) 

Вставляет объект перед дочерним элементом с указанным индексом.

Параметры:

• Index - индекс дочернего элемента.
• Obj - объект JSON.