edit的有关问题，可能比较奇怪

edit的问题，可能比较奇怪
请问怎么实现下面的功能？
edit中已经输入有字符了将光标定位在固定位置之后输入字符会覆盖原来已经有的字符而不是插入在原有字符前面。

[解决办法]
在Edit的KeyPress事件中增加以下代码即可实现楼主的要求:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if TEdit(Sender).SelLength < 1 then TEdit(Sender).SelLength := 1;
end;