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