При нажатии на клавишу Энтер курсор должен перейти в следующее поле, а оно никак (

procedure TForm3.Edit1KeyPress(Sender: TObject; var key: char);
begin
if key=#13 //Если нажата клавиша Enter
then Edit2.SetFocus; //То переместить курсор во второе поле
end;

key:=#0;

unit Unit3;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var key:char);
    procedure Edit2KeyPress(Sender: TObject; var key: char);
    procedure Edit3KeyPress(Sender: TObject; var key:char);
    procedure Edit3Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
  //Клавиша нажата в поле "Текст"
procedure TForm3.Edit1KeyPress(Sender: TObject; var key: char);
begin
 if key=#13 //Если нажата клавиша Enter
  then Edit2.SetFocus; //То переместить курсор во второе поле
end;
 
//Клавиша нажата в поле "Целое число"
procedure TForm3.Edit2KeyPress(Sender: TObject; var key: char);
begin
 case key of
  '0'..'9',#8:; //Цифры и пробел
  #13: Edit3.SetFocus; //Если нажат пробел переместить курсор в третье поле
  '-': if Length(Edit2.Text)<>0 then key:=#0; //Писать знак "-" если не введено не одного знака
  else key:=#0; //Другие символы запрещены
  end;
 
 end;
 
//Клавиша нажата в поле "Дробное число"
procedure TForm3.Edit3Change(Sender: TObject);
begin
 
end;
 
procedure TForm3.Edit3KeyPress(Sender: TObject; var key: char);
begin
 case key of
 '0'..'9', #8:; //   Допускается печать цифр и знак пробел
 #13: Edit1.SetFocus; //Если нажат пробел переместить курсор в первое поле
 '.', ',':
  begin
   key:='.'; //десятичный разделитель "."
   if pos('.', Edit3.Text)<>0 //Если уже имеется "."
    then key:=#0 //то ничего не печатать
 end;
 '-': if Length(Edit3.Text)<>0  ////Писать знак "-" если не введено не одного знака
  then key:=#0;
  else
   key:=#0
  end
 
 
 end;
 
end.

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9', #8: ; // цифры и <Backspace>
#13: Edit3.SetFocus; // <Enter> — переместить курсор в поле Edit3
'-': if Length(Edit2.Text) <> 0 then Key := #0;
else Key := #0; // остальные символы не отображать
end;
end;