delphi 怎么在edit文本框里边输入边选中呢

例：在edit1里输入字母A，A是选中状态，再输入字母B那么就是字母AB处于选中状态

---

不要看帆世四级菜源轿清雹前鸟的错误答案
一下程序经过验证的.............
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #8 then
Edit1.Clear
else
begin
Edit1.Text:=Edit1.text+key;
key:=#0;
Edit1.SelectAll;
end;
end;

---

在edit1的onchange事件中写代码
Edit1.SelectAll;

---