anchor.diff:    begin
       J := Images.GetImageCountAt(Start - Buff);
       J1 := FormControls.GetControlCountAt(Start - Buff);
  -    if J = 0 then {it's and image}
  +    if J = 0 then {it's an image}
       begin
         Wid := Images.GetWidthAt(Start - Buff, Align, HSpcL, HSpcR, FlObj);
       {Here we count floating images as 1 ThtChar but do not include their width,
  
positive.code:   if RemoveSpaces then
      while True do
        case (Start + N - 1)^ of
          WideChar(' '), BrkCh:
            Dec(N); {remove spaces on end}
        else
          break;
  
negative.code:   I, J, J1, OHang, Wid, HSpcL, HSpcR: Integer;
    Align: AlignmentType;
    FlObj: TFloatingObj;
  begin
    Result := 0;
    while N > 0 do
  