[Dimonn]

еще проще...

i, j: integer;
s: string;
...
i:= 99; //значение
s:= 'Наимен.'; //название
...
// заносим
ComboBox1.AddItem(s, TObject(i));
...
//получам
j:= integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);