anchor.diff:        txt := Copy(ftext, 2, Length(fText) - 1)
       else
         txt := fText;
  -  	while UTF8Pos(FThousandSeparator, txt) > 0 do
  -  		txt := UTF8Copy(txt, 1, Pred(UTF8Pos(FThousandSeparator, txt)))
  +    while UTF8Pos(FThousandSeparator, txt) > 0 do
  +      txt := UTF8Copy(txt, 1, Pred(UTF8Pos(FThousandSeparator, txt)))
                +UTF8Copy(txt, Succ(UTF8Pos(FThousandSeparator, txt)), UTF8Length(txt) - UTF8Pos(FThousandSeparator, txt));
       if Copy(fText, 1, 1) = '-' then
         fText := '-' + txt
  
positive.code:       txt := Copy(ftext, 2, Length(fText) - 1)
      else
        txt := fText;
    	while UTF8Pos(FThousandSeparator, txt) > 0 do
    		txt := UTF8Copy(txt, 1, Pred(UTF8Pos(FThousandSeparator, txt)))
               +UTF8Copy(txt, Succ(UTF8Pos(FThousandSeparator, txt)), UTF8Length(txt) - UTF8Pos(FThousandSeparator, txt));
      if Copy(fText, 1, 1) = '-' then // No need for utf8 version here
        fText := '-' + txt
  
negative.code:     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  
      Description:
        Defines a Text Edit widget. Also known a single line Text Entry widget.
        This unit also defines numeric edit widgets.
  }
  
  // Future enhancements:
  