anchor.diff:    FMouseDownButton:= Button;
     FMouseDownShift:= Shift;
   
  -  FTabIndexOver:= GetTabAt(X, Y);
  -  SetTabIndex(FTabIndexOver);
  +  FTabIndexOver:= GetTabAt(X, Y, IsX);
  +
  +  //activate tab only if not X clicked
  +  if not IsX then
  +    SetTabIndex(FTabIndexOver);
   
     Invalidate;
   end;
  
positive.code: end;
  
  
  function TATTabs.GetTabAt(X, Y: integer): integer;
  var
    i: integer;
    Pnt: TPoint;
    R1: TRect;
  begin
    Result:= -1;
    Pnt:= Point(X, Y);
  
    if PtInRect(FRectArrowLeft, Pnt) then
  
negative.code:   NTab, NTabTo: integer;
    Data: TATTabData;
    P: TPoint;
    IsX: boolean;
  begin
    if not (ATarget is TATTabs) then
    begin
  