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

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

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

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

   for I :=  to  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;