dragDrop mit TListbox, Objekt übernehmen

[khh]

hallo zusammen,
mit
self.moeglichezusatzstoffelistbox.Items.AddObject(Tlisteninhalt(Fzusatzstoffelist.items[i]).Bezeichnung, Tlisteninhalt(Fzusatzstoffelist.items[i])); fülle ich in einer Schleife eine Listbox aus der DB.

mit

Delphi-Quellcode:

eintrag := moeglichezusatzstoffeListBox.Items[moeglichezusatzstoffeListBox.Itemindex];
 enthaltenezusatzstoffeListBox.Items.Add(eintrag);

im ondragdrop einer empfangenden Listbox empfange ich die Einträge per Drag and Drop in eine 2te Listbox.

Leider habe ich so nur die Bezeichnung aus der Liste, die ID kommt nicht mit rüber
Wie bekomme ich auch die ID in die "Empfängerbox" ohne dass diese angezeigt wird?

Danke für eure Hilfe Gruss KHH