anchor.diff:  
   function TATTabs._IsDrag: boolean;
   begin
  -  Result:= Dragging;
  +  Result:= Dragging and FMouseDragBegins;
   end;
   
   procedure TATTabs.GetTabXProps(AIndex: integer; const ARect: TRect;
  
positive.code:     FMouseDownButton: TMouseButton;
      FMouseDownShift: TShiftState;
      FMouseDownRightBtn: boolean;
  
      //colors
      FColorBg: TColor; //color of background (visible at top and between tabs)
  
negative.code:   FMouseDownPnt:= Point(X, Y);
    FMouseDownButton:= Button;
    FMouseDownShift:= Shift;
    FMouseDragBegins:= false;
  
    FTabIndexOver:= GetTabAt(X, Y, IsX);
  
    //activate tab only if not X clicked
    if not IsX then
  