anchor.diff:    FreeAndNil(FCaptionList);
     FreeAndNil(FTabList);
     FreeAndNil(FBitmapRound);
  +  FreeAndNil(FBitmapAngle);
     FreeAndNil(FBitmap);
     inherited;
   end;
  
positive.code:       FBitmapRound.Canvas.Pen.Color:= ATabCloseBorder;
        FBitmapRound.Canvas.Ellipse(RectBitmap);
  
        C.StretchDraw(RectRound, FBitmapRound);
      end
      else
      begin
  
negative.code:     b.Canvas.LineTo(line2.X, line2.Y);
      b.Canvas.Pen.Width:= 1;
  
      CanvasStretchDraw(C, Rect(AX, AY, AX+ASizeX, AY+ASizeY), b);
  end;
  
  function _ShortenStringEx(C: TCanvas;
  