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:   end;
  
    //BG, 15.01.2011:
    TFormControlObjList = class(TObjectList)
    private
      function GetItem(Index: Integer): TFormControlObj;
    public
      function GetObjectAt(Posn: Integer; out Obj): Integer;
      procedure Decrement(N: Integer);
  
      procedure ActivateTabbing;
      procedure DeactivateTabbing;
      property Items[Index: Integer]: TFormControlObj read GetItem; default;
  
negative.code: begin
    for I := 0 to Count - 1 do
    begin
      Result := Items[I].Pos - Posn;
      if Result >= 0 then
      begin
        TFloatingObjBase(Obj) := Items[I];
  