Source position: grids.pas line 361
type TOnCompareCells = procedure(
Sender: TObject;
ACol: Integer;
ARow: Integer;
BCol: Integer;
BRow: Integer;
var Result: Integer
) of object;