anchor.diff:    AInvert: Integer;
     TempCaption: atString;
   begin
  +  //optimize for 200 tabs
  +  if ARect.Left>=ClientWidth then exit;
  +
     if FTabShowEntireColor and (ATabHilite<>clNone) then
       ATabBg:= ATabHilite;
   
  
positive.code: 
  function TATTabs.GetTabRect(AIndex: Integer): TRect;
  var
    i: Integer;
  begin
    Result.Left:= FTabIndentInit+FTabAngle;
    Result.Right:= Result.Left;
    Result.Top:= FTabIndentTop;
    Result.Bottom:= Result.Top+FTabHeight;
  
    if IsIndexOk(AIndex) then
      for i:= 0 to TabCount-1 do
      begin
        Result.Left:= Result.Right + FTabIndentInter;
        Result.Right:= Result.Left + FTabWidth;
        if AIndex=i then Exit;
      end;
  end;
  
  function TATTabs.GetTabRect_Plus: TRect;
  
negative.code:     TabObject: TObject;
      TabColor: TColor;
      TabModified: boolean;
      TabRect: TRect;
    end;
  
  type
  