TObject和integer之间的转换问题

Question

在ComboBox中有一个方法
AddObject(s,AObject)我要做这样的工作：
每个数据由字符串和一个integer型的标识id组成
把数据加入到ComboBox中
类似
AddObject(s1, id1)
AddObject(s2, id2)然后，在合适的时候，得到用户选择的项目
我要知道用户选择的那个项目的id，如id1，id2等
就是把 ComboBox.Items.Objects[index] 再转换为整数不想另外写整形的类，直接使用integer和TObject转换，具体怎么写？
谢谢各位dx

Answer 1

//定义类
TMyClass = class
  ID:Integer;
end;
//关联
var
  MyClass:TMyClass;
MyClass := TMyClass.Create;
MyClass.ID := 你自己的值;
ComboBox.Items.AddObject('item1', MyClass);
//取值
TMyClass(CombBox.Items.Objects[I]).ID

Answer 2

小刀的做法就是俺已经用的做法，但实在不简洁，俺不喜欢，主要是还要Create哎，看来只有这样了？
帖子先挂这里，看看还有没有更简洁的实现。

Answer 3

AddObject(s1,tobject(id1));Integer(combobox1.Items.Objects[i])

Answer 4

俺的基础确实够菜的了，刚刚开始用delphi一星期左右
谢谢