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