[[Delphius]]

La alternativa, como bien indico sería algo como:

Código Delphi [-]
const
  CHEMICAL_LIST: array [0..CHEMICALS_COUNTS] of TChemical =
  (
    (Name: 'Oro'; Value: 0.1);
    (Name: 'Plata'; Value: 0.2);
    // ...
  );

Y ya tenemos directamente este array constante que no requiere llenarlo, basta con pasar los datos al Combo:

Código Delphi [-]
for i := 0 to CHEMICALS_COUNTS do
ComboBox1.Items.Add(CHEMICAL_LIST[i]);

Saludos,