Issue with TTMSFNCRichEditor.GetCharInWord

Hi TMS,
in some cases the while loop in GetCharInWord does not terminate.
Please add a corresponding condition in FMX.TMSFNCRichEditor.pas to line 4893 like

  while (sz < X) and (i <= length(s) + 1) do

Thanks,
Dirk

This issue was internally already resolved and the next TMS FNC UI Pack update will include this fixed version.