有没有这样一个函数？

Question

不知在Delphi中，有没有这样一个函数，可以实现如下功能：
可以在任意字符串儿中光标停顿的地方插入任意字符。
如果有，请告知。如果没有，怎么实现？请各位大虾指教。谢谢！！

Answer 1

用函数Insert就行.var
  S: string;
begin
  S := '你很帅';
  Insert('的确', S, 3);               
  showmessage(s);
end;

Answer 2

button1 onclickEdit1.SelText := 'hello world';