Source position: kgrids.pas line 692
type TKGridCellSpanEvent = procedure(
Sender: TObject;
ACol: Integer;
ARow: Integer;
var Span: TKGridCellSpan
) of object;