用回车按键贴换PageControl的TabSheet

Question

请教各位开发环境:Delphi7 + SQL SERVER 2000界面描述：
  界面Client区有一个TRzPageControl，TRzPageControl包含3到5个TabSheet，每一个TabSheet上有若干Edit控件，问题描述：
  需要一个函数，完成如下功能：如果焦点在TabSheet的最后一个Edit控件上，一个回车后，可以进入下一个TabSheet

Answer 1

回车后
写TRzPageControl的actionpageindex:=0或者别的页号码
然后执行一下onchange事件

Answer 2

將你的最後那個TEdit的KeyPress事件指定為下面這個事件
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Key := #0;
    PageControl1.ActivePageIndex := (PageControl1.ActivePageIndex + 1) mod PageControl1.PageCount;
  end;
end;

Answer 3

有别的方法，何以不和（最后一个）Edit控件邦定吗？