关于memo或richtext

Question

如果现在我想在memo第某行某个位置插入字符，像这样
你好
开会别迟到。
当我想光标停在"会"字后机，然后点击按钮，系统就会在我想在“会”字后加个请字，像每二行变成“开会请别迟到”.我要如何得到光标前的字符，还有光标后的字符，然后再把修改后的字符串重新覆盖掉原来的第二行的数据。
最好用什么控件来实现，要怎么做

Answer 1

S := '请' ;
     for i := 1 to Length(S) do
         begin
         SendMessage(memo1.Handle, WM_CHAR, Ord(S[i]), 0)
         end ; //of for或：
memo1.seltext := '请'