动态创建(0分)

动态创建2个EDIT控键（Test1,Test2）,在Test1,Test2中只允许输入数字，并且按回车的时候自动跳到下另一Test控键中，按上下键时也自动跳到另一Test控键中，请问该如何实现？
我只做到了 按回车会自动转移焦点 不知道 按 上下键的时候该怎么实现；代码如下
procedure TForm1.FormCreate(Sender: TObject);
var
Test1,Test2 : TEdit;
begin
Test1 := TEdit.Create(self);
Test2 := TEdit.Create(self);
Test1.top := 50;
Test1.Left := 50;
Test1.Parent := self;
Test2.top := 80;
Test2.Left := 50;
Test2.Parent := self;
Test1.OnKeyPress := edit1.OnKeyPress;
Test2.OnKeyPress := edit1.OnKeyPress;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
begin
key:=#0;
end
else
if key = #13 then
begin
selectnext(activecontrol, true, true);//
end;
end;

--------------
有知道的朋友麻烦帮忙再改一改 谢谢了

case key of
VK_DOWN :
SelectNext(ActiveControl ,True ,True) ;
VK_UP :
SelectNext(ActiveControl ,False ,True) ;
end ;

解决了