Source position: controls.pp line 408
type TStartDockEvent = procedure(
Sender: TObject;
var DragObject: TDragDockObject
) of object;