Source position: controls.pp line 346
type TStartDragEvent = procedure(
Sender: TObject;
var DragObject: TDragObject
) of object;