Ereignisse mehrer Controls in einem zusammenfassen?

[ChEeTaH]

Seid gegrüßt DP'ler

Wie kann ich beim TbsSkinButtonsBar (AlmDev.com) die Ereignisse der einzelnen Items (TbsButtonBarItem) mit einer Schleife oder function abfragen?

Standardmäßig wird das so gelöst:
Jedes Item hat eigene Events. Bsp.:
Item1.Onclick
Item2.OnClick
...

Das ist mir zu aufwändig und möchte das in dieser Art lösen:
ItemIndex = Nummer des aktuell aufgerufenen Items

Delphi-Quellcode:

procedure ItemsClick(ItemIndex:Integer)
begin
   Notebook.Pageindex := ItemIndex;
end;

Verständlich?

Es gibt leider kein übergeordnetes Ereignis, bei dem ich alle ansprechen könnte.

Wie löse ich so etwas am einfachsten?