[BCB] Powiązanie itemów z ListBox z obiektami

witam,
mam pytanie: programuje mały programik w borland builder c++ 6.0, mam listbox'a i kilka obiektów różnych klas, jak powiązać pozycje listbox'a z konkretnymi obiektami klasy? chodzi o to że jak kliknę na pozycje w listbox'e to oprócz indeksu pozycji dostane tez np adres obiektu (po to żeby go potem zniszczyć i usunąć wpis z lb:)) z góry wielkie dzięki za pomoc

TStrings::Objects
TStrings::AddObject
TStrings::InsertObject
TCustomListBox::AddItem

ListBox->AddItem("nazwa", wskaznik);
//...
wskaznik = ListBox->Items->Objects[i];

W Objects wskaźnik jest typu TObject*, jednak nikt nie zabroni nam sztywnie rzutować na dowolny wskaźnik

TCustomListBox::GetItemData
TCustomListBox::SetItemData

ListBox->SetItemData(i, wskaznik);
//...
wskaźnik = ListBox->GetItemData(i);

ItemData jest typu int, więc na platformie 64bit odpada.