Source position: grids.pas line 1392
type TGetCheckboxStateEvent = procedure(
Sender: TObject;
ACol: Integer;
ARow: Integer;
var Value: TCheckBoxState
) of object;