Danke funktioniert.
Aber man muss nicht selber rechnen:
procedure BeginDrag(Immediate: Boolean; Threshold: Integer);
Zitat:
If Immediate is false, the mouse pointer doesn't change to the value of the DragCursor property and dragging doesn't begin until the user moves the mouse pointer the number of pixels specified by the Threshold parameter.