procedure   TForm1.Button1Click(Sender:   TObject); 
begin 
    ComboBox1.AddItem(rs.Name,Tobject(rs.id));   //添加对象 
end; 

procedure   TForm1.Button2Click(Sender:   TObject); 
var 
    id   :   integer; 
begin 
    id   :=   integer(ComboBox1.Items.Objects[0]);     //访问对象 
end;
//delphi/3881