To navigate in a comfortable way, it would be very helpful if you could add parentReference to a Field like ParentID in TSkyDriveItem. Same as in TGDriveItem!
ja := GetJSONValue(o,'value') as TJSONArray;
if Assigned(ja) then begin for i := 0 to GetArraySize(ja) - 1 do begin fo := GetArrayItem(ja, i) as TJSONObject; ....
obj2 := GetJSONValue(fo,'parentReference');
if Assigned(obj2) then
sdi.ParentID := GetJSONProp(obj2 as TJSONObject,'id');
There are a lot of other helpful information (like full path) in the reply!