TWebHttpRequest parse JSON

WEB TMS WEB Core
1
I was trying to use the TWebHttpRequest component to perform a HTTP(s) request to a server. 

I'd like to parse the JSON response and I used the example shown at pages 206-207 of the TMS WEB Core v1.2 Padua DEVELOPERS GUIDE as follows:

procedure TForm1.WebHttpRequest1Response(Sender: TObject; AResponse:
string);
var
 JO := JA.Items;
 JS: TJSON;
 JA: TJSONArray; 
  JO: TJSONObject;
  i: integer;
begin
  JS := TJSON.Create;
  JA := TJSONArray(JS.Parse(AResponse));
  for i := 0 to JA.Count - 1 do
  begin
    JO := JA.Items;
    WebListBox1.Items.Add(JO.Get('prop'));
  end;
end;


I put the unit WEBLib.JSON in the uses section, but the compiler displays the following error:

[Fatal Error] Incompatible types: got "TJSONValue" expected "TJSONObject"

for the line inside the loop:

JO := JA.Items;

Could you help me?

2

Can you change this to:

  JO := TJSONObject(JA.Items);
3
Thanks for your swift reply, the compiler still raised the Error:

Incompatible type arg no. 1: Got "TJSONPair", expected "String"

on the line: 

WebListBox1.Items.Add(JO.Get('description'));

but it has been enough to apply the toString method to JO.Get('description') to solve the little issue,

great support, much appreciated!

kind regards,

Fabrizio