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