Source position: dbf.pas line 82
type TCompareRecordEvent = procedure(
Dbf: TDbf;
var Accept: Boolean
) of object;