anchor.diff:      property TabCaption: TATTabString read FTabCaption write SetTabCaption;
       property TabHint: TATTabString read FTabHint write FTabHint;
       property TabColor: TColor read FTabColor write SetTabColor default clNone;
  +    property TabColorActive: TColor read FTabColorActive write SetTabColorActive default clNone;
  +    property TabColorOver: TColor read FTabColorOver write SetTabColorOver default clNone;
       property TabModified: boolean read FTabModified write FTabModified default false;
       property TabImageIndex: TImageIndex read FTabImageIndex write SetTabImageIndex default -1;
       property TabFontStyle: TFontStyles read FTabFontStyle write FTabFontStyle default [];
  
positive.code:   TempCaption: TATTabString;
    Extent: TSize;
    bNeedMoreSpace: boolean;
    ColorPos: TATTabPosition;
    Data: TATTabData;
    i: integer;
  
negative.code: 
    if Assigned(FOnTabMove) then
      FOnTabMove(Self, -1, AIndex);
  
    Result:= Data;
  end;
  
  function TATTabs.DeleteTab(AIndex: integer;
  