Source position: fpdatasetform.pp line 37
type TFieldCheckEvent = procedure(
aField: TField;
var check: Boolean
) of object;