Source position: msesimplewidgets.pas line 80
type buttoneventty = procedure(
const sender: tcustombutton
) of object;