Enterキー入力で次のコンポーネントにフォーカスを移動

フォームにEditボックスを2個貼り付けます。
Editボックス両方のKeyPressイベントに下記コードを関連づけます。

使用コンポーネント
TEdit

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
　if Key = #13 then
　begin
　　SelectNext(ActiveControl,True,True);
　　key := #0;
　end;
end;