Source position: dbgrids.pas line 93
type TFocusControlEvent = procedure(
aField: TFieldRef
) of object;