var s:string;
obj1,obj2:TJSONObject;
arr1,arr2:TJSONArray;
v,v1:TJSONString;
  i,k: Integer;
begin
s:=mmo1.Text;
obj1:=TJSONObject.ParseJSONValue(s)as TJSONObject;
arr1:=obj1.Getvalue('updates') as TJSONArray;
for i := 0 to arr1.Size-1 do
begin
arr2:=arr1.Get(i)as TJSONArray;
//for k := 0 to arr2.Size-1 do
begin
v:=(arr2.Get(0) as TJSONString);
if v.Value='61' then
begin
v1:=arr2.Get(1) as TJSONString;
mmo2.lines.Add(v1.Value);
end;
end;
end;
end;