Source position: kgrids.pas line 644
type TKGridBeginDragEvent = procedure(
Sender: TObject;
var Origin: Integer;
const MousePt: TPoint;
var CanBeginDrag: Boolean
) of object;