TCategoryButtons Items Drag&Drop

[Essener]

Guten Tag,

folgendes Problem:

Ich habe auf der Form eine TCategoryButtons Komponente mit mehreren Kategorien angelegt.
Mit Click auf einen TButton werden diesen Kategorien neue Items (mit TCategoryButtons1.Categories[x].Items.Add) hinzugefügt. Soweit ok.

In der Komponente ist wohl bereits eine Drag+Drop Routine für die Items implementiert, so dass ich die Items mit der Maus einfach in eine andere Kategorie ziehen und ablegen kann.

Wie kann ich denn jetzt den Index der Kategorie einer Variablen zuweisen, in der das Item abgelegt wurde?

Wohl im Ereignis OnEndDrag, welches ausgelöst wird, wenn ich das Item abgelegt habe.

Aber was muss ich da rein schreiben?

Danke.