anchor.diff:      if i=AIndexTo then
         R.Right:= ClientWidth - FRealIndentRight - NWidthOfPlus;
   
  -    D.TabRectOrig:= R;
  -    D.TabPosition:= FOptPosition;
  +    D.TabRect:= R;
     end;
   end;
   
  
positive.code:       begin
          for i:= 0 to FOptTabHeight div FOptAnimationStepV-1 do
          begin
            Data.OffsetVert:= i*FOptAnimationStepV;
            Invalidate;
            Application.ProcessMessages;
            Sleep(FOptAnimationPause);
  
negative.code:   FTabIndex:= 0;
    FTabIndexOver:= -1;
    FTabIndexHinted:= -1;
    FTabIndexAnimated:= -1;
    FAnimationOffset:= 0;
    FTabList:= TCollection.Create(TATTabData);
    FTabMenu:= nil;
    FScrollPos:= 0;
  