向编辑框发送中文字符

procedure TForm1.btn1Click(Sender: TObject);

var

 S: string;

begin

 S:=' 中';

 SendMessage(edt1.Handle,WM_IME_CHAR,(ord(S[1]) shl 8) + ord(S[2]) , 0);

end;