Парсинг JSON

//в InfoApi находится код что выше
try
while Pos('{"time":', InfoApi.Text) <> 0 do
Begin
s1:=pars('{"t',InfoApi.Text,'},');
time:=pars('ime":"',s1,'"');
tittle:=pars('"title":"',s1,'"');
desc:=pars('"description":"',s1,'"');
link:=pars('"link":"',s1,'",');
Link:=StringReplace(link, '/', '', [rfReplaceAll]);
desc:=StringReplace(link, '\r\n', #13, [rfReplaceAll]);
News.Add(time);
News.Add(tittle);
News.Add(desc);
News.Add(link);
News.Add('- - - -');
End;
 
except
end;

//В мемо1 находится код что выше
var
  s: string;
  Json: TJSONObject;
  jRev: TJSONValue;
  jArr, entry: TJSONArray;
  i, j: Integer;
begin
  Json := TJSONObject.ParseJSONValue(s) as TJSONObject;
  jArr := Json.Get('news').JsonValue as TJSONArray;
  for i := 0 to Pred(jArr.Size) do
  begin
    Memo1.Lines.Add('time #' + IntToStr(i + 1));
    entry := (jArr.Get(i) as TJSONObject).Get('time').JsonValue as TJSONArray;
 
    for j := 0 to Pred(entry.Size) do
    begin
      Memo1.Lines.Add((entry.Get(j) as TJSONObject).Get('time').JsonValue.value);
      Memo1.Lines.Add('=> time');
 
      for jRev in TJSONArray((entry.Get(j) as TJSONObject).Get('time').JsonValue) do
        Memo1.Lines.Add(jRev.value)
    end;
  end;
end;
//В итоге получаю access violation at address

procedure ParseMyJSON(Memo: TMemo);
var
  JSON: TJSONObject;
  JSONArray: TJSONArray;
  i, j: Integer;
begin
  JSON := TJSONObject.ParseJSONValue(Memo.Lines.Text) as TJSONObject;
  Memo.Clear;
  JSONArray := TJSONArray(JSON.Get('news').JsonValue);
  for i := 0 to JSONArray.Count - 1 do
  begin
    for j := 0 to TJSONArray(JSONArray.Items[i]).Count - 1 do
      Memo.Lines.Add(TJSONPair(TJSONArray(JSONArray.Items[i]).Items[j]).JsonValue.Value);
    Memo.Lines.Add('----------------------');
  end;
end;

procedure ParseMyJSON(Memo: TMemo);
var
  JSON: TJSONObject;
  JSONArray: TJSONArray;
  i, j: Integer;
begin
  JSON := TJSONObject.ParseJSONValue(Memo.Lines.Text) as TJSONObject;
  Memo.Clear;
  JSONArray := TJSONArray(JSON.Get('news').JsonValue);
  for i := 0 to JSONArray.Size - 1 do
  begin
    for j := 0 to TJSONArray(JSONArray.Get(i)).Size - 1 do
      Memo.Lines.Add(TJSONPair(TJSONArray(JSONArray.Get(i)).Get(j)).JsonValue.Value);
    Memo.Lines.Add('----------------------');
  end;
end;

procedure ParseMyJSON(Memo: TMemo);
var
  JSON: TJSONObject;
  JSONArray: TJSONArray;
  i: Integer;
begin
  JSON := TJSONObject.ParseJSONValue(Memo.Lines.Text) as TJSONObject;
  Memo.Clear;
  JSONArray := TJSONArray(JSON.Get('news').JsonValue);
  for i := 0 to JSONArray.Size - 1 do
  begin
    Memo.Lines.Add(TJSONPair(TJSONObject(JSONArray.Get(i)).Get('time')).JsonValue.Value);
    Memo.Lines.Add(TJSONPair(TJSONObject(JSONArray.Get(i)).Get('title')).JsonValue.Value);
    Memo.Lines.Add(TJSONPair(TJSONObject(JSONArray.Get(i)).Get('description')).JsonValue.Value);
    Memo.Lines.Add(TJSONPair(TJSONObject(JSONArray.Get(i)).Get('link')).JsonValue.Value);
    Memo.Lines.Add('----------------------');
  end;
end;