将字母大写后鼠标焦点如何后置？

Question

我将输入的字母转化为大写，Edit_EpiReg.Text:=uppercase(Edit_EpiReg.Text);
但是输入后鼠标的焦点会自动到最左边，比如我想输入A.1,2，但只要输到字母A鼠标焦点就自动跳到起始位置（最左边）了，
怎么让鼠标的焦点保持在最右边呢？谢谢！

Answer 1

1.如果只是要将输入的字符换成大写,直接使用edit的CharCase属性2.
  edit1.Text := UpperCase(edit1.Text);
  edit1.SelStart := Length(edit1.Text);  //