Danke für eure Vorschläge...das Mit dem Editor klingt einleuchtend (leider hat's nicht geholfen).
Achso:
ShowMessage(Sender.ClassName);
ergibt "TToolBar"
Edit: ergibt "TToolButton"
showmessage(toolbutton1.ClassName)
funktioniert ja nicht
EDIT: ES FUNKTIONIERT!!!
Da der Button das letzte Objekt ist, was hinzugefügt wurde, kommt er natürlich ans Ende der Deklarationen...aus Spaß zum Vorletzten Objekt gemacht (um eine Zeile nach oben kopiert) ==> Es läuft.
Aber warum das???
(ihr könnt jetzt an meinen Programmier-Kenntnissen zweifeln
)