用delc中的TcxCustomEdit控制插入位置

Question

如何在Delphi中使用TcxCustomeEdit控制我的插入位置，我目前正在使用KeyPress事件来控制我的输入，我输入的每四个字母，就能在字符串中显示' - '，并且我能够为了实现它，但每次' - '出现时，我的插入符号都会回到前面。我应该如何在我的字符串末尾找到插入符号？

以下是我的代码： -

procedure Trlblfrmcourierpercelarmtn.MyColumnKeyPress(
Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem;
AEdit: TcxCustomEdit; var Key: Char);
var
str : string;
j : integer;
begin
inherited;
if AEdit.EditingValue <> null then
begin
  str := AEdit.EditingValue;
    if (str <> '')  then
    begin
      j := str.Length;
      if ((j  + 1) mod 5 = 0) then
      begin
        str := str + '-';
      end;
      AEdit.EditValue:= str;
    end;
  end;
end;