Otra opción es utilizar el puntero del segundo parámetro para almacenar un entero. De esa forma aprovechas ese valor. Piensa que al final el puntero no es más que un número.
Puede añadir los valores al combobox de esta forma:
Código Delphi
[-]
ComboBox1.AddItem('Lunes', Pointer(1234));
ComboBox1.AddItem('Martes', Pointer(34));
ComboBox1.AddItem('Miercoles', Pointer(9999));
Para recuperar los valores del ID, del elemento seleccionado puedes hacer lo siguiente:
Código Delphi
[-]
if (ComboBox1.ItemIndex <> -1) then begin
p := Pointer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
i := Integer(p);
Label1.Caption := IntToStr(i);
end;
Un saludo.