anchor.diff:  
     //normal tab?
     for i:= 0 to TabCount-1 do
  -    if PtInRect(GetTabRect(i), Pnt) then
  +  begin
  +    R1:= GetTabRect(i);
  +    if R1.Left>Pnt.X then exit;
  +    if PtInRect(R1, Pnt) then
       begin
         Result:= i;
         Exit;
       end;
  +  end;
   
     //plus tab?
     if FTabShowPlus then
  
positive.code:   end;
  
    DoUpdateTabWidths;
  
    //paint bottom rect
    if not FTabBottom then
  
negative.code: var
    i: Integer;
    Pnt: TPoint;
    R1, RDown: TRect;
  begin
    Result:= -1;
    Pnt:= Point(X, Y);
  