在EDIT控件光标位置插入文本

var
    s:string;
begin
    s:=Edit1.Text;
    insert( '1 ',   S,Edit1.SelStart+1);
    Edit1.text:=s;
end;