a := Iterator.AsValue[0].asInteger;
b := Iterator.AsValue[1].asInteger;
c := Iterator.AsValue[2].asBoolean;

        if Iterator.&Type = TJsonToken.StartArray then
          if Iterator.Recurse then// входим внутрь массива
          begin
            s := Iterator.Path;// "ID"

            while Iterator.Next do// цикл по массиву "ID":[0,55,true,false]
            begin
              case Iterator.Index of
                0: begin

                    if Iterator.AsValue.IsType<Integer> then
                      idx := Iterator.AsValue.AsInteger
                    else
                      continue;

                    if grid.Columns.Count-1 >= idx then
                      col.Index  := idx;
                end;// 0

// вошли внутрь массива
//цикл по массиву
while Iterator.Next do
            begin
              JsonToken := Iterator.&Type;// здесь тип integer

              case Iterator.Index of// здесь значение индекса = минус 1

        if Iterator.&Type = TJsonToken.StartArray then
        begin
          idx := Iterator.AsValue.AsInteger;// здесь 0
          idx := Iterator.Index;// здесь минус 1

procedure TForm1.btnReadArrayClick(Sender: TObject);
const sJSon = '{"ID":[0,55,true,false], "ID2":[1,60,false,false]}';

var
 Iterator: TJSONIterator;
 Reader: TJsonTextReader;
 TextReader: TStringReader;
begin

  TextReader  := TStringReader.Create(sJSon);
  Reader      := TJsonTextReader.Create(TextReader);
  Iterator    := TJSONIterator.Create(Reader);

  try
    while Iterator.Next do
    begin
      if Iterator.&Type = TJsonToken.StartArray then
        if Iterator.Recurse then
          while Iterator.Next do
          begin
            Memo1.Lines.Add('Key: ' + Iterator.Key);
            Memo1.Lines.Add('Index:' + Iterator.Index.ToString);
          end;

    end;//while

  finally
    FreeAndNil(TextReader);
    FreeAndNil(Iterator);
    FreeAndNil(Reader);
  end;
end;

{"column1":[0,55,true,false], "column2":[1,60,false,false]}, "column3":[2,177,false,false]}

for AMember in X.A['adresses'] do
  begin