var
Name: string;
ID: Integer;
...
ComboBox1.Items.AddObject(Name, Ptr(ID));
...
ID := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
var
Name: string;
ID: Integer;
...
ComboBox1.Items.AddObject(Name, Ptr(ID));
...
ID := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);