edit 自动在中间插入代码且光标锁定在插入后的位置

edit控件，怎样分别获取光标所在位置前面、后面的字符串
showmessage(

    '光标前："'

    +copy(edit1.Text,1,edit1.SelStart)

    +'" 光标后："'

    +copy(edit1.Text,edit1.SelStart+1,length(edit1.Text))

    +'"');

---------------------上面是思路来源

edit1.selstart是光标所在的位置。

 

 

procedure TfrmTaobaoPrintSetup.Label6Click(Sender: TObject);
var
  top_qian,top_hou: string;
begin
  top_qian := copy(TopOrderSetStr_edit.Text,1,TopOrderSetStr_edit.SelStart);//光标前的内容
  top_hou :=  copy(TopOrderSetStr_edit.Text,TopOrderSetStr_edit.SelStart+1,Length(TopOrderSetStr_edit.Text));//光标后的内容
  TopOrderSetStr_edit.Text := top_qian + '[商家编码]' + top_hou;//中间插入
  TopOrderSetStr_edit.SelStart := Length(top_qian)+length('[商家编码]');//赋值后锁定光标
end;