ладно напишу но чур на апи :)
type settextex =record
flags:DWORD;
codepage:UINT;
end;
var
a:array[0..4]of Word;
s:WideString ;
SetText: settextex;
const
EM_SETTEXTEX = WM_USER + 97;
ST_DEFAULT = 0;
ST_KEEPUNDO = 1;
ST_SELECTION = 2;
begin
a[0]:=$74C9;
a[1]:=$72C1;
a[2]:=$71C5;
a[3]:=$73C5;
a[4]:=$0000;
SetText.flags :=ST_KEEPUNDO or ST_SELECTION;
SetText.codepage := 1200;
SendMessage(RichEdit1.Handle, EM_SETTEXTEX, integer(@SetText),integer(PWideChar(@a)));
массив потому что в редакторе невозможно написать строку по китайски
а в рунтайме просто юзай видестринг