Source position: editbtn.pas line 404
type TAcceptValueEvent = procedure(
Sender: TObject;
var AValue: Double;
var Action: Boolean
) of object;