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)));