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