anchor.diff:  
   function TATTabs._IsDrag: boolean;
   begin
  -  Result:= Dragging;
  +  Result:= Dragging and FMouseDragBegins;
   end;
   
   procedure TATTabs.GetTabXProps(AIndex: integer; const ARect: TRect;
  
positive.code: procedure TATTabs.DragOver(Source: TObject; X, Y: integer; State: TDragState;
    var Accept: Boolean);
  var
    IsX: Boolean;  
  begin
    if Source is TATTabs then
    begin
      Accept:=
  
negative.code:     if PtInRect(RectTab, Pnt) then
      begin
        Result:= i;
        APressedX:= IsShowX(i) and PtInRect(GetTabRect_X(RectTab), Pnt);
        Exit;
      end;
    end;
  