DoStartDrag - start performing the drag
Source position: controls.pp line 1093
protected procedure TControl.DoStartDrag(
var DragObject: TDragObject
); virtual;