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
begin
sdi.ParentID := GetJSONProp(obj2 as TJSONObject,'id');
end;
....
There are a lot of other helpful information (like full path) in the reply!