how to count objects in TJsonObject ?

Hi ,

in my code i have this 
var _json_object : TJSONObject ;
    _json: TJSON;

and i wish to count how many objects in the  TJSONObject after i do the following ,
 _json := TJSON.Create;
 _json_object := _json.Parse( index_keys_json ) ;

 _json_object.length ?


I guess it is a TJSONArray in this case? So, I'd suggest to check for this and cast to a TJSONArray and get the length this way.