[ecfisa]

Hola Kamael.

Te agrego otra opción.

Ejemplo:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
const 
  METAL: array[1..6] of string =('Cobre', 'Aluminio', 'Hierro', 'Mercurio', 'Oro', 'Plata');
  VALOR: array[1..6] of Integer = (10, 20, 30, 40, 50, 60);
var
  i: Integer;
begin
  with ComboBox1 do
  begin
    for i:= 1 to 6 do
      AddItem(METAL[i], TObject(VALOR[i]));  // nombre de metal y valor
    ItemIndex:= 0;
  end;
end;

procedure TForm1.ComboBox1CloseUp(Sender: TObject);
begin
  with ComboBox1 do
    ShowMessage('Metal: ' + Items[ItemIndex] + #10#13 +  // nombre de metal
                'Valor: ' + IntToStr(Integer(Items.Objects[ItemIndex])));  // valor
end;

Saludos.