Source position: msegrids.pas line 1889
type gridbeforeblockeventty = procedure(
const sender: tcustomgrid;
var aindex: Integer;
var acount: Integer
) of object;