Source position: comctrls.pp line 1227
type TUDClickEvent = procedure(
Sender: TObject;
Button: TUDBtnType
) of object;