Makes start settings before dragging operation

procedure StartDrag(X: integer; Y: integer);