SysUtils.AppendStr

Этот метод может использовать только AnsiString, нет его перегруженной версии для UnicodeString.

Замените вызовы вроде этого: AppendStr(String1, String2);

таким кодом: String1 := String1 + String2;

Или, еще лучше, используйте новый класс TStringBuilder для соединения строк.