superobject数组添加json对象，用的是引用

procedure TForm1.Button1Click(Sender: TObject);
var
ja,jo: ISuperObject;
I: Integer;
begin
ja := SA([]); jo :=SO();
jo.S['index'] := IntToStr(10);

ja.AsArray.Add(jo);
Memo1.Lines.Add(ja.AsString);//[{"index":"10"}]

jo.S['index'] := IntToStr(12);
Memo1.Lines.Add(ja.AsString);//[{"index":"12"}]

for I := 0 to 10 do
begin
//所以在循环里时要 特别注意，
//先 jo := so(); 一下
jo.S['index'] := IntToStr(I);
Memo1.Lines.Add(jo.AsString);
ja.AsArray.Add(jo);
end;
Memo1.Lines.Add( ja.AsString );
end;