Creo que ocupo un poco de mas ayuda, al parecer no redacte bien
En un For obtengo los valores de mi JsonArray, tengo dos valores en un comboBox, y otros en un StringList, los que quiero añadir como indice al comboBox son los que obtengo en el StringList
Código Delphi
[-]
for LITEM in lJsonValue as TJSONArray do
begin
Form2.BoxQaQc.Items.Add(((LITEM as TJSONObject).Get('subject').JsonValue as TJSONString).Value
+' - '+(((LITEM as TJSONObject).Get('qc').JsonValue as TJSONString).Value));
dcid := (((LITEM as TJSONObject).Get('qcid').JsonValue as TJSONString).Value);
qcid.Add(dcid);
end;
qcdi es el StringList, en dcid guardo cada uno de los valores que obtengo con el Get('qcid');
Código Delphi
[-]
procedure TForm2.BoxQaQcSelect(Sender: TObject);
var
i : Integer;
r : String;
begin
r := qcid[BoxQaQc.ItemIndex];
fileName := BoxQaQc.Items[BoxQaQc.ItemIndex];
i := AnsiPos('-',fileName);
delete(fileName, 1, i+1);
QcWork.Caption :='You are working on: '+fileName;
ShowMessage(r);
end;
Esto es de mi segunda pantalla, donde para probar, imprimo lo que tenga r que deseo que sean los valores del qcid de la pantalla anterior, y al hacerlo asi, me imprime cosas raras o no imprime nada.