Start the docking process
Source position: controls.pp line 1092
protected procedure TControl.DoStartDock(
var DragObject: TDragObject
); virtual;