Source position: grids.pas line 283
type TOnSelectEvent = procedure(
Sender: TObject;
aCol: Integer;
aRow: Integer
) of object;