DelphiでJsonデータの要素を取り出したい

Delphi10.3でJsonの扱い方を探しています。
Webでデータを探しながら組み付けてみたので、理解できているとは言いがたいです。
JsonObjectをJsonArrayに追加しましたが、
そこからデータを読み出す方法がわかりませんでした。
このデータ追加方法もこれで良いのかはよくわかりません。
教えていただけるとうれしいです。
なお、TMemoは確認用に使っています。

Delphi
1procedure TForm2.Button1Click(Sender: TObject);
2var
3  JsonObject : TJsonObject;
4  JsonArray: TJsonArray;
5  JsonValue: TJsonValue;
6  I:integer;
7  ID,NAMAE,FURIGANA:String;
8begin
9  JsonArray := TJsonArray.Create;
10  JsonValue:=TJsonValue.Create;
11
12  JsonObject := TJsonObject.Create;
13  JsonObject.AddPair('id','10');
14  JsonObject.AddPair('namae','鈴木');
15  JsonObject.AddPair('furigana','すずき');
16  JsonArray.Add(JsonObject);
17
18  JsonObject := TJsonObject.Create;
19  JsonObject.AddPair('id','20');
20  JsonObject.AddPair('namae','田中');
21  JsonObject.AddPair('furigana','たなか');
22  JsonArray.Add(JsonObject);
23  
24  for I := 0 to JsonArray.Count - 1 do
25  begin
26    JsonValue := JsonArray.Items[i];
27    Memo1.Lines.Add(JsonValue.ToString);
28    //ここで、Jsonのデータをを変数に取り込みたい
29    // ID :=
30    // NAMAE :=
31    // FURIGANA :=
32  end;
33end;
34end.

行動規範の内容に同意します

回答1件

自己解決

正解かどうかはわかりませんが、以下のようにすると要素を取り出すことができました。

delphi
1    JsonValue := JsonArray.Items[i];
2    S:=JsonValue.FindValue('id').ToString;
3    Memo1.Lines.Add(S);
4    S:=JsonValue.FindValue('namae').ToString;
5    Memo1.Lines.Add(S);
6    S:=JsonValue.FindValue('furigana').ToString;
7    Memo1.Lines.Add(S);
8