anchor.diff:      constructor Create(AOnwer: TComponent); override;
       function CanFocus: boolean; override;
       destructor Destroy; override;
  -    function GetTabRectWidth(APlusBtn: boolean): Integer;
  -    function GetTabRect(AIndex: Integer): TRect;
  +    function GetTabRectWidth(APlusBtn: boolean): integer;
  +    function GetTabRect(AIndex: integer): TRect;
       function GetTabRect_Plus: TRect;
       function GetTabRect_X(const ARect: TRect): TRect;
  -    function GetTabAt(X, Y: Integer): Integer;
  -    function GetTabData(AIndex: Integer): TATTabData;
  -    function TabCount: Integer;
  -    property TabIndex: Integer read FTabIndex write SetTabIndex;
  +    function GetTabAt(X, Y: integer): integer;
  +    function GetTabData(AIndex: integer): TATTabData;
  +    function TabCount: integer;
  +    property TabIndex: integer read FTabIndex write SetTabIndex;
       procedure AddTab(
  -      AIndex: Integer;
  +      AIndex: integer;
         const ACaption: atString;
         AObject: TObject = nil;
         AModified: boolean = false;
         AColor: TColor = clNone;
         AImageIndex: integer = -1);
  -    function DeleteTab(AIndex: Integer; AAllowEvent, AWithCancelBtn: boolean): boolean;
  +    function DeleteTab(AIndex: integer; AAllowEvent, AWithCancelBtn: boolean): boolean;
       procedure ShowTabMenu;
       procedure SwitchTab(ANext: boolean);
       procedure MoveTab(AFrom, ATo: integer; AActivateThen: boolean);
  -    procedure DragDrop(Source: TObject; X, Y: Integer); override;
  +    procedure DragDrop(Source: TObject; X, Y: integer); override;
       procedure DoScrollLeft;
       procedure DoScrollRight;
   
  
positive.code: 
  destructor TATTabs.Destroy;
  var
    i: Integer;
  begin
    for i:= TabCount-1 downto 0 do
    begin
  
negative.code: 
  
  procedure TATTabs.AddTab(
    AIndex: integer;
    const ACaption: atString;
    AObject: TObject = nil;
    AModified: boolean = false;
  