mal davon abgesehen, dass der Code niemals ausgeführt wird (einen disabled Button kann man nicht klicken) sieht mir das ganz so aus, als hieße die Komponente eben nicht Toolbutton1.
Laß Dir doch mal den Namen ausgeben:
Delphi-Quellcode:
procedure TfmMain.ToolButton1Click(Sender: TObject);
begin
showmessage (TToolButton(sender).name);
end;
Bei der Gelegenheit siehst Du dann auch mal, wie oft die procedure aufgerufen wird und von wem. Es muß ja nicht unbedingt an dem Toolbutton liegen.
Ansonsten gib uns einfach mal ein bisserl mehr Code, ich hab bei den Klaskugelwerken gerade kein Guthaben mehr
Gruß
Thomas