delphi superobject 操作json数组

procedure TFrmMain.Button4Click(Sender: TObject);
var
 jo,jo1,jo2: ISuperObject ;
 ja:TSuperArray ;
 i: Integer ;
begin
 jo := SO('{"users":["aa","bb"]}')  ;
 ja := jo.A['users'] ;
 ja.Add('cc');
 jo1 := jo.O['users'];
 
 jo1.AsArray.Add('dd');

 ShowMessage( jo1.AsJSon());
 jo2 := SA(['a',1,true]);
 ShowMessage(jo2.asjson())


end;