TListBox，如何最方便的实现每一个ITEM项有一个键值？

我从数据库中查出一个商品列表，包括商品编号和名称，在ListBox中显示商品名称，我如何最方便的取得用户选择名称的编号？问这个问题是因为VB中，有个ITEMDATA属性：
--------------VB----------------------------------------------
ItemData 属性是一个长整型数的数组，它有与控件的 List 属性相同数目的项目。可以用与每一项相关的数来标识它们。例如，在 ListBox 控件中，可以用雇员身份号来标识每一个雇员的名字。填 ListBox 时，也要将雇员号填入 ItemData 相应的元素中。
ItemData 常常用做与 ListBox 控件中项目相关的数据结构数组的索引。
-------------------------------------------------------------
Delphi中有没有相同的属性？