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]);