Meu caro, você pode armazenar um valor em cada item do combo:

iNumero := 1981; {valor inteiro para armazenar}
ComboBox1.Items.AddObject('meu nome', TObject(iNumero)); {usa a propriedade
Objects para armazenar o integer}

iIndice := Combobox1.ItemIndex;//iIndice é variável explicativa
iValor := Integer(ComboBox1.Items.Objects[iIndice]); {recuperando o
valor armazenado}

Responder a