anchor.diff:              Inc(P1);
               Inc(I);
             end;
  -        until (P1^ = #0) or
  -          ((((P1^ in [WideChar(' '), WideChar('-'), WideChar('?'), ImgPan, FmCtl, BrkCh]) or WrapChar(P1^))
  -          and (Brk[I] = 'y')) or (Brk[I - 1] in ['a', 's']));
  +        until (P1^ = #0) or (CanWrap(P1^) and (Brk[I] = 'y')) or (Brk[I - 1] in ['a', 's']);
           SoftHyphen := Brk[I - 1] = 's';
           if P1^ in [WideChar('-'), WideChar('?')] then
           begin
  
positive.code:     TopP := MargArray[TopPos];
      LeftP := MargArray[LeftPos];
      case Positioning of
        PosRelative:
        begin
          if TopP = Auto then
            TopP := 0;
  
negative.code:     if Positioning in [posAbsolute, posRelative] then
        MaxWidth := ScrollWidth + MiscWidths - MargArray[MarginRight] + LeftP - Xin
      else
        MaxWidth := ScrollWidth + RightWidths + Indent;
  
      if Positioning = posRelative then
        ClientContentBot := Max(ContentTop, MyCell.tcContentBot - TopP)
  