[Missael]

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.