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