Source position: grids.pas line 281
type TOnSelectCellEvent = procedure(
Sender: TObject;
aCol: Integer;
aRow: Integer;
var CanSelect: Boolean
) of object;