anchor.diff:  procedure TATStatus.DoPaintPanelTo(C: TCanvas; ARect: TRect;
     AAlign: TATStatusAlign; const ACaption: string);
   var
  -  RText: TRect;
  +  RectText: TRect;
     NOffsetLeft, NOffsetTop: Integer;
   begin
     C.Brush.Color:= Color;
     C.FillRect(ARect);
   
  -  RText:= Rect(ARect.Left+FIndentLeft, ARect.Top, ARect.Right-FIndentLeft, ARect.Bottom);
  -  C.FillRect(RText);
  +  RectText:= Rect(ARect.Left+FIndentLeft, ARect.Top, ARect.Right-FIndentLeft, ARect.Bottom);
  +  C.FillRect(RectText);
   
     case AAlign of
       saLeft:
  
positive.code:     ARect.Left+NOffsetLeft+2,
      ARect.Top+NOffsetTop,
      ETO_CLIPPED+ETO_OPAQUE,
      @ARect,
      PChar(ACaption),
      Length(ACaption),
      nil);
  
negative.code:     procedure WMEraseBkgnd(var Message: TMessage); message WM_ERASEBKGND;
      {$endif}
    published
      property DoubleBuffered;
      property ColorBorderTop: TColor read FColorBorderTop write FColorBorderTop;
      property ColorBorderR: TColor read FColorBorderR write FColorBorderR;
      property ColorBorderL: TColor read FColorBorderL write FColorBorderL;
  