anchor.diff:     {$ENDIF}
       Exit;
     end;
  +
     for I := 0 to Images.Count - 1 do {call drawlogic for all the images}
     begin
       Obj := Images[I];
  
positive.code:           Min := Math.Max(Min, Width + HSpaceL + HSpaceR);
    end;
  
    //Max := 0;
    P := Buff;
    P1 := StrScanW(P, BrkCh); {look for break ThtChar}
    while Assigned(P1) do
  
negative.code:     while P^ <> #0 do
      {find the next string of chars that can't be wrapped}
      begin
        SoftHyphen := False;
        if CanWrap(P1^) and (Brk[I] = 'y') then
        begin
          Inc(P1);
  