C'è la proprietà ItemData:
codice:
Combo1.AddItem "Tizio"
Combo1.ItemData(Combo1.NewIndex) = 2
Combo1.AddItem "Caio"
Combo1.ItemData(Combo1.NewIndex) = 5
Combo1.AddItem "Sempronio"
Combo1.ItemData(Combo1.NewIndex) = 7
...