Значения из JSON распределить в таблицу StringGrid

interface
 
type
TArrayElement = record
  num, time, speed, score : integer;
end;
 
TMyArray = class
  code: integer;
  elements:TArray<TArrayElement>
end;
 
TMуObject = class()
  id: string;
  myarray: TMyArray;
end;
 
implementation
uses XSuperObject;
 
...
  var myObj : TMyObject := TMyObject.FromJson(JsonString);
 
  for var i : integer := 0 to length(myObj.myarray.elements) - 1 do
  begin
    var item : TArrayElement := myObj.myarray.elements[i];
  // теперь у вас в  item очередной элемент массива
  // кладите, куда хотите, хоть в ShowMessage()
  end;

procedure TForm1.Button1Click(Sender: TObject);
 
begin
var myObj : TMуObject := TMyObject.FromJson(JsonString);
 
for var i : integer := 0 to length(myObj.myarray.elements) - 1 do
  begin
    var item : TArrayElement := myObj.myarray.elements[i];
  // теперь у вас в  item очередной элемент массива
  // кладите, куда хотите, хоть в ShowMessage()
  end;
 
end;

unit Unit1;
 
interface
 
uses
  System.Classes,
  System.SysUtils,
 
  Vcl.Controls,
  Vcl.StdCtrls,
  vcl.Forms,
 
  XSuperObject
  ;
 
type
  TForm1 = class(TForm)
    m1: TMemo;
    b1: TButton;
    procedure b1Click(Sender: TObject);
  private
  public
  end;
 
  TArrayElement = record
    num, time, speed, score: integer;
  end;
 
  TMyArray = class
    code: integer;
    elements: TArray<TArrayElement>
  end;
 
  TMyObject = class
    id: string;
    myarray: TMyArray;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
procedure TForm1.b1Click(Sender: TObject);
begin
  var JsonString : string := m1.Text;
  var myObj : TMyObject  := TMyObject.FromJson(JsonString);
 
  for var i: integer := 0 to length(myObj.myarray.elements) - 1 do
  begin
    var item: TArrayElement := myObj.myarray.elements[i];
  // теперь у вас в  item очередной элемент массива
  // кладите, куда хотите, хоть в ShowMessage()
  end;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
begin
  var
    JsonString: string := Memo1.Text;
  var
    myObj: TMyObject := TMyObject.FromJson(JsonString);
  for var i: integer := 0 to length(myObj.myarray.elements) - 1 do
  begin
    var
      item: TArrayElement := myObj.myarray.elements[i];
    ShowMessage(IntToStr(item.score.MaxValue));
  end;
end;

TArrayElement = record
  num, time, speed, score : integer;
end;

grid.cells[0, arow] := e.num.toString;
grid.cells[1, arow] := e.time.toString;
grid.cells[2, arow] := e.speed.toString;
grid.cells[3, arow] := e.score.toString;

TClass1 = class
  id : string;
  ret : TClass2;
end;

TClass2 = class
 code: integer;
 mans: TArray<integer>;
end;

var obj : TClass1 := TClass1.FromJson(JSON);