在EDIT控件光标位置插入文本 var s:string; begin s:=Edit1.Text; insert( '1 ', S,Edit1.SelStart+1); Edit1.text:=s; end;