anchor.diff:          I := 1;
           J := 1;
           Picture := True;
  -        if FlObj.Floating in [ALeft, ARight] then
  -        begin
  -          if Start > DoneFlObjPos then
  +        case DrawLogicOfObject(FlObj, XX, YY, Width, Cnt, FloatingImageCount) of
  +          rsContinue:
             begin
  -            ImgY := Max(Y, ImgY);
  -            W := FlObj.TotalWidth;
  -            H := FlObj.TotalHeight;
  -            case FlObj.Floating of
  -              ALeft:
  -              begin
  -                IMgr.AlignLeft(ImgY, W, XX, YY);
  -                FlObj.Indent := IMgr.AddLeft(ImgY, ImgY + H, W).X - W + FlObj.HSpaceL;
  -              end;
  -
  -              ARight:
  -              begin
  -                IMgr.AlignRight(ImgY, W, XX, YY);
  -                FlObj.Indent := IMgr.AddRight(ImgY, ImgY + H, W).X + FlObj.HSpaceL;
  -              end;
  -            end;
  -            FlObj.DrawYY := ImgY + FlObj.VSpaceT;
  -            ImgHt := Max(ImgHt, H);
  -            DoneFlObjPos := Start;
  -
  -            // go on with the line:
  -            X1 := IMgr.LeftIndent(Y);
  -            X2 := IMgr.RightSide(Y);
  -            Width := X2 - X1;
  -            Inc(FloatingImageCount);
  -            if Cnt >= FloatingImageCount then
  -            begin
  -              Start := TheStart;
  -              Cnt := 0;
  -              XX := 0;
  -              continue;
  -            end;
  +            Start := TheStart;
  +            Cnt := 0;
  +            XX := 0;
  +            continue;
             end;
  -        end
  -        else
  -        begin
  -          ImgHt := Max(ImgHt, FlObj.TotalHeight);
  -          Inc(XX, FlObj.TotalWidth);
  -          if XX > Width then
  -            break;
  +
  +          rsBreak: break;
           end;
         end
         else if J3 = 0 then
  
positive.code:         I := 1;
          J := 1;
          Picture := True;
          Inc(XX, FcObj.TotalWidth);
          if XX > Width then
            break;
        end
        else
        begin
  
negative.code:     end;
    end;
    Result := False;
  end;
  
  //-- BG ---------------------------------------------------------- 07.08.2013 --
  procedure TFloatingObjBaseList.SetItem(Index: Integer; const Item: TFloatingObjBase);
  begin
    Put(Index, Item);
  end;
  
  initialization
  