anchor.diff:      end
       else if J1 = 0 then
       begin
  -      Inc(Result, FcObj.TotalWidth);
  +      if not (FcObj.Floating in [ALeft, ARight]) then
  +        Inc(Result, FcObj.TotalWidth);
         Dec(N); {control counts as one ThtChar}
         Inc(Start);
       end
  
positive.code:       FormAlign: AlignmentType;
        NoChar: boolean;
        P: PWideChar;
        FCO: TFormControlObj;
        FlObj: TFloatingObj;
        LRTextWidth: Integer;
        OHang: Integer;
  
negative.code:   Result := Get(Index);
  end;
  
  //function TFormControlObjList.GetObjectAt(Posn: Integer; out Obj): Integer;
  //{Return count of chars before the next form control.  0 if at the control,
  // 999999 if no controls after Posn}
  //var
  //  I: integer;
  //begin
  //  for I := 0 to Count - 1 do
  //  begin
  //    Result := TFloatingObjBase(Items[I]).Pos - Posn;
  //    if Result >= 0 then
  //    begin
  //      TFloatingObjBase(Obj) := Items[I];
  //      Exit;
  //    end;
  //  end;
  //
  //  TFloatingObjBase(Obj) := nil;
  //  Result := 99999999;
  //end;
  //
  //procedure TFormControlObjList.Decrement(N: integer);
  //{called when a character is removed to change the Position figure}
  //var
  //  I: integer;
  //begin
  //  for I := 0 to Count - 1 do
  //    with Items[I] do
  //      if Pos > N then
  //        Dec(Pos);
  //end;
  
  { TFloatingObj }
  
  