>>787
UnicodeString s = …
UnicodeString u;
for (int i = 1; i <= s.Length(); ++i)
{
u += "&#" + IntToStr(static_cast<int>(s[i])) + ";";
}
Edit1->Text = u;