怎样控制回车键？？？？

Question

1、我的FORM上有很多EDIT控件，怎么才能使按下回车键使焦点从每个里面往下移动？
2、某个EDIT我不允许空，如果空，我按下回车键后用showmessage显示不许空的消息后，焦点还在里面，请问怎么处理？我现在是在keyup事件里写后，按下回车键就不停的显示这个消息，死循环了。

Answer 1

Form1.KeyPreview := True;
onKeyPress:
if Key = #13 then
  SelectNext(ActiveControl, True, True);OnExit
if Trim(Edit1.Text) = '' then
begin
  ShowMessage('Don't leave this edit null!');
  Edit1.SetFocus;
end;