Source position: kgrids.pas line 838
type TKGridEndDragEvent = procedure(
Sender: TObject;
Origin: Integer;
Destination: Integer;
const MousePt: TPoint;
var CanEndDrag: Boolean
) of object;