Откуда вы выдрали эту муть с функциями StrPas? В коде под Delphi XE7 не должно быть вызовов этих функций, они только для обратной совместимости с кодом под Windows 3.x. Перепишите по-человечески, с SetString или хотя бы StrLenW, и всё заработает. Наверняка где-то размер буфера в байтах считается, а не в WideChar-ах.
|