如何删除Edit光标前一个字母?(50分)

如何模拟Backspace键,删除Edit光标所在的前一个字符.
另外如何将一个字符插入到Edit光标所在处.

使用消息，论坛中很多，搜搜看

procedure TForm1.Image1Click(Sender: TObject);
var mpoit:integer;
mstr1,mstr2:string;
begin
if UpperCase(Fmainwin.ActiveControl.Name) <> 'EDIT1' then Edit1.SetFocus;
mpoit:=edit1.SelStart;
mstr1:=copy(edit1.Text,0,mpoit-1);
mstr2:=copy(edit1.Text,mpoit+1,length(edit1.text)-mpoit);
Edit1.Text:=mstr1+mstr2;
Edit1.SelStart:=mpoit-1;
end;
另外如何将一个字符插入到Edit光标所在处. 这个知道应该怎么弄了吧?

postmessage

接受答案了.