Source position: buttonedit.pas line 704
type TAcceptValueEvent = procedure(
Sender: TObject;
var AValue: Double;
var Accept: Boolean
) of object;