Как заполнить TListView с помощью TJSONIterator.Next?

Добавьте этот recurse/next в начале цикла, чтобы подготовиться к вводу массива:

while LIterator.Next do
begin
  if LIterator.&Type = TJsonToken.StartArray then
  begin
    LIterator.Recurse;
    LIterator.Next;
  end;

Вы можете проверить этот пример в документе: https://docwiki.embarcadero.com/CodeExamples/Sydney/en/RTL.JSONIterator

Код ниже легче читать:

procedure TFormX.LoadJSON;
const
  cValue = 'symbol';
var
  LValue: TJSONValue;
  LArray: TJSONArray;
  i: integer;
  oItem: TListViewItem;
begin
  LValue := TJSONObject.ParseJSONValue('{json}');

  LArray := LValue.FindValue('success') as TJSONArray;

  if Assigned(LArray) then
  begin
    for i := 0 to LArray.Count - 1 do
    begin
      oItem := ListView1.Items.Add;

      oItem.Text := 'Object #' + i.ToString + ' ' + LArray.Items[i].GetValue<string>(cValue);
      oItem.Detail := 'Key:' + cValue;
    end;
  end;
end;

Ведь я нашел правильное решение:*

var
  LIterator: TJSONIterator;
  LJsonTextReader: TJsonTextReader;
  LStringReader: TStreamReader;
  NObjJSON: Integer;
begin
  LStringReader := TStreamReader.Create('../../Data.json', TEncoding.UTF8, True);
  LJsonTextReader := TJsonTextReader.Create(LStringReader);
  LIterator := TJSONIterator.Create(LJsonTextReader);
  NObjJSON := LIterator.AsInteger;

  ListView1.Items.Clear;
  ListView1.BeginUpdate;
  try
    while True do
    begin
      while LIterator.Next do
      begin
        if LIterator.&Type in [TJsonToken.StartObject, TJsonToken.StartArray] then
        begin
          Memo1.Lines.Add(LIterator.Key);
          LIterator.Recurse;
        end
        else if LIterator.Path = 'success['+NObjJSON.ToString+'].symbol' then
        begin
            Memo1.Lines.Add(LIterator.AsValue.ToString);
            oItem := ListView1.Items.Add;
            for NObjJSON := 0 to ListView1.ItemCount -1 do
              oItem.Text := 'Object #' + NObjJSON.ToString + ' ' + LIterator.AsValue.ToString;
        end
      end;
      if LIterator.InRecurse then
        LIterator.Return
      else
        Break;
    end;
  finally
    ListView1.EndUpdate;
    LIterator.Free;
    LJsonTextReader.Free;
    LStringReader.Free;
  end;
end;

NObjJSON используется для подсчета количества объектов внутри массива и возвращает 4. Вы можете использовать простое целое число (I) и заменить «для NObjJSON := 0 на ListView1.ItemCount -1 do» на for I := 0 to ListView1.ItemCount -1 do, но количество объектов вернет 0.