anchor.diff:      if c > 1 then
       begin
         CountCopy := Item.LineWidth[i];
  -      TextOut := Copy(Text, StartCopy, CountCopy);
  +      TextOut := {$IFDEF FPC}UTF8Copy{$ELSE}Copy{$ENDIF}(Text, StartCopy, CountCopy);
         StartCopy := StartCopy + CountCopy;
       end
       else
  
positive.code:   while i <= c do
    begin
      Inc(i);
      CharWidth := Canvas.TextWidth(DataString(Text[i]));
      if LineWidth + CharWidth < MaxWidth then
      begin
        Inc(LineWidth, CharWidth);
  
negative.code: 
  uses
    {$I tox-uses.inc}
    {$IFDEF FPC}LazUTF8,{$ENDIF} Classes, {$IFNDEF FPC}Types, {$ENDIF}SysUtils, Controls, Graphics, StringUtils, MessageList,
    TextLineInfo, Math;
  
  type
  