#pas
unit hiStrCat;
{$IFDEF FPC}{$H+}{$ENDIF}//<-$longstrings on
interface...
И в последнюю очередь ключ -Sh в строке компилятора (обычно такое не рекомендуют, но для проверки можно и гобально вкючить)
Должны были быть сообщения компилятора по этому поводу, но они вероятно подавлены..
включаются в подозрительном модуле:
{$warn IMPLICIT_STRING_CAST Error}
{$warn EXPLICIT_STRING_CAST Error}
{$warn IMPLICIT_STRING_CAST_LOSS Error}
{$warn EXPLICIT_STRING_CAST_LOSS Error}
явный/неявный кастинг, и потеря данных при явном/неявном кастинге(ваш случай)