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