anchor.diff:  
     X := X + Indent;
   
  -  XR := RefX + MargArray[MarginLeft] + MargArray[PaddingLeft] + MargArray[BorderLeftWidth]
  -    + NewWidth + MargArray[MarginRight] +
  -    MargArray[PaddingRight] + MargArray[BorderRightWidth]; {current right edge}
  +  XR := RefX + MargArray[MarginLeft] + MargArray[PaddingLeft] + MargArray[BorderLeftWidth] + NewWidth + MargArray[MarginRight] + MargArray[PaddingRight] + MargArray[BorderRightWidth]; {current right edge}
     if Positioning = posRelative then
       YB := ContentBot - YOffset + TopP
     else if FLoatLR in [ALeft, ARight] then
  
positive.code:       if IB > ClientContentBot then
          ClientContentBot := IB;
      end;
      ContentBot := ClientContentBot + MargArray[PaddingBottom] +
        MargArray[BorderBottomWidth] + MargArray[MarginBottom];
      DrawBot := Max(ClientContentBot, MyCell.tcDrawBot) + MargArray[PaddingBottom]
        + MargArray[BorderBottomWidth];
  
      Result := ContentBot - Y;
  
  
negative.code:   PL := BL + BrdLeft; {Padding left and right}
    PR := BR - BrdRight;
  
    BT := YO + CellSpacing; {Border Top and Bottom}
    BB := YO + Ht;
    PT := BT + BrdTop; {Padding Top and Bottom}
    PB := BB - BrdBottom;
  
  