anchor.diff:            Min := Math.Max(Min, Width + HSpaceL + HSpaceR);
     end;
   
  -  //Max := 0;
  +  SoftHyphen := False;
     P := Buff;
     P1 := StrScanW(P, BrkCh); {look for break ThtChar}
     while Assigned(P1) do
  
positive.code:    {$ENDIF}
      Exit;
    end;
    for I := 0 to Images.Count - 1 do {call drawlogic for all the images}
    begin
      Obj := Images[I];
  
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);
  