anchor.diff:      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);
  
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:           Min := Math.Max(Min, Width + HSpaceL + HSpaceR);
    end;
  
    SoftHyphen := False;
    P := Buff;
    P1 := StrScanW(P, BrkCh); {look for break ThtChar}
    while Assigned(P1) do
  