ParseJSONVALUE wie geht das?

[LoZe]

ja

  Root.Data.Translations.Items.Count

und du kannst auch alle durchlaufen mit

Delphi-Quellcode:

for I:= 0 to Root.Data.Translations.Items.Count-1 do
begin
  Memo1.Lines.Add(Root.Data.Translations.Items[I].TranslatedText);
end;