Speichere den Index in Objects der ListBox, dann hast du die Zuordnung direkt.
Delphi-Quellcode:
// Eintragen
ListBox1.Items.AddObject('Dein Eintragsstring', TObject(DeinEintragsIndex));
...
// Index zu einem Eintrag auslesen
Integer(ListBox1.Items.Objects[ListBox1.ItemIndex])
Du kannst da aber auch direkt eine Referenz zu dem Objekt selbst hineinlegen, wenn du willst.