Source position: comctrls.pp line 2139
type TToolBarOnPaintButton = procedure(
Sender: TToolButton;
State: Integer
) of object;