Source position: togglelabel.pas line 47
type TChangingEvent = procedure(
Sender: TObject;
var Allow: Boolean
) of object;