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;