procedure TForm1.btn1Click(Sender: TObject);
var
  s:String;
  i: Integer;
  jfields,jitems,jo:ISuperObject;
begin
  jitems:=SA([]);
  jo:=SO();
  jo.S['area'] := 'sz01';
  jo.S['userid'] := 'u0001';
  for i := 0 to 3 do
  begin
    jfields:=SO();
    jfields.S['id']:= Format('%.4d', [i+1]);
    jfields.D['lng']:= 102.0909;
    jfields.D['lat']:= 33.9888;
    jfields.S['url']:='rtmp://192.168.3.159/livepkgr/66?adbe-live-event=liveevent';
    jfields.S['memo']:='S.H.E 00'+ IntToStr(i+1);
    jitems.AsArray.Add(jfields);
  end;
  jo.O['info']:=jitems;

  s := jo.AsJSon(True, False);
  mmo1.Text := s;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  jo,m:ISuperobject;
  i,j:Integer;
  tt:TSuperArray;
  s:string;
  lst:TStringList;
begin
  if mmo1.Text <>'' then
  begin
    lst:=TStringList.Create;
    jo:=so(mmo1.Text);
    tt:=jo.O['info'].AsArray;
    for i:=0 to tt.Length-1 do
    begin
      s:=tt.O[i].S['id'];
      lst.Add(s);
    end;
    ShowMessage(lst.Text) ;
    lst.Free;
  end;
end;