Source position: comctrls.pp line 1823
type TUDChangingEventEx = procedure(
Sender: TObject;
var AllowChange: Boolean;
NewValue: SmallInt;
Direction: TUpDownDirection
) of object;