procedure TDragPerformer.DragStarted(APosition: TPoint); //Imput device has moved beyond tresholt limits (or immediate docking) -- Regards, Alexey