[[eduarcol]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
nro1,nro2,resultado:word;
begin
nro1:=strtoint(suma1.text);
nro2:=strtoint(combobox.Items.string[combobox.selectedindex]); //o bien  nro2:=strtoint(combobox.Text);
resultado:=nro1+nro2;
mostrar.caption:='El resultado es = '+inttostr(resultado);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if ComboBox1.ItemIndex <> -0 then
combobox1.items.add('2');
combobox1.items.add('4');
combobox1.items.add('5');
combobox1.items.add('10');
combobox1.items.add('13');
end;