MaskEdit中如何由键盘控制编辑焦点?(100分)

MaskEdit的editmask属性设置为“9999-99999999”，用于输入电话号码。
用户输入时，如“－”前面区号只有三位，如“010”，
那如何实现输入区号后按键盘“－”键，
编辑的光标自动跳到“－”后的第一位。
即在OnKeyDown事件中如何判断了键值后移动光标？
谢谢了！

本来就是自动的！！！

已经用 9 屏蔽了，以下是没法处理的！

procedure TForm1.MaskEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
s:string;
n:integer;
e:TMaskEdit;
begin
if key<>ord('-') then exit;
e:=TMaskEdit(Sender);
e.SelStart :=pos('-',e.text)+1;
e.SelLength:=1;
end;

就这样吧。