Fórum pegar valor de retorno (string) no formato json #581973

procedure TfrmPSyncBack.Button1Click(Sender: TObject);
var
 jsonObj, jSubObj: TJSONObject;
 ja: TJSONArray;
 jp, jSubPar: TJSONPair;
 i, j: integer;
begin
   jsonObj := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(Memo1.Text), 0) as TJSONObject;
//dada a seguinte string em notação JSON que será convertida pela função ParseJSONValue
//em um objeto nativo do delphi do tipo TJSONObject

   Memo1.Lines.Clear;


   jp := TJSONPair.Create;
   jp := jsonObj.Get(0);  //pega o par zero

   ja := TJSONArray.Create;
   ja := (jp.JsonValue as TJSONArray); // do par zero pega o valor, que é array
//quantidade de pares do objeto
   Memo1.Lines.Add('quantidade de elementos ' +   IntToStr(ja.Size));
   jSubObj:= TJSONObject.Create;
   jSubPar := TJSONPair.Create;

   for i := 0 to ja.Size - 1 do //itera o array para pegar cada elemento
   begin
      jSubObj := (ja.Get(i) as TJSONObject); //pega cada elemento do array, onde cada
//elemento é um objeto, neste caso, em função da string JSON montada acima
      Memo1.Lines.Add('');
      Memo1.Lines.Add('No elemento ' + IntToStr(i) +
' a quantidade de pares do objeto é = ' +  IntToStr(jSubObj.Size) ); //quantidade de pares do objeto
      for j := 0 to jSubObj.Size - 1 do  //itera o objeto para pegar cada par
      begin
         jSubPar := jSubObj.Get(j);  //pega o par no índice j
 //do par pega separado a chave e o valor usando Value
         Memo1.Lines.Add(jSubPar.JsonString.Value + ' : ' + jSubPar.JsonValue.Value);
      end;
   end;
end;

First chance exception at $73F4A9F2. Exception class EInvalidCast with message 'Invalid class typecast'.