¿Cuál es el código que se utiliza para saltar todos los edits al press enter?

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  MisEdits = array of Tedit;
 
type
  TForm1 = class(TForm)
    Edit1: Tedit;
    Edit2: Tedit;
    Edit3: Tedit;
    procedure FormCreate(Sender: TObject);
    procedure PasarFoco(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    FEdits: MisEdits;
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i, c, k: Integer;
begin
  c := 0;
  for i := 0 to ComponentCount - 1 do
  begin
    if (Components[i].ClassType = Tedit) then
      c := c + 1;  //Obtenemos la dimensión del array
  end;
  SetLength(FEdits, c);
  for k := 0 to ComponentCount - 1 do
  begin
    if (Components[k].ClassType = Tedit) then
      FEdits[k] := Tedit(Components[k]);  ///Asignamos loe edit al array
  end;
end;
 
procedure TForm1.PasarFoco(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  i: Integer;
begin
  for i := low(FEdits) to High(FEdits) do
    if Tedit(Sender).Name = FEdits[i].Name then
    begin
      if Key = vk_down then
        if i < High(FEdits) then
          FEdits[i + 1].SetFocus;
      if Key = vk_Up then
        if i > Low(FEdits) then
          FEdits[i - 1].SetFocus;
    end;
end;
 
end.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 Case Key Of
  13 : PostMessage(Handle, Wm_NextDlgCtl, 0, 0);
 End; //end case
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_UP then
  begin
    keybd_event(VK_SHIFT, 0, 0, 0);
    keybd_event(VK_TAB, 0, 0, 0);
    keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
    keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0);
  end
  else if Key = VK_DOWN then
  begin
    keybd_event(VK_TAB, 0, 0, 0);
    keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0);
  end;
end;
 
end.