delphi keydown enter

1procedure TForm.FormKeyPress(Sender: TObject; var Key: Char);
2begin
3  if (Key = #13) then  //#13 enter
4  begin
5    Key := #0;  //clear key press
6    {enter extra code}
7    Perform(WM_NEXTDLGCTL, 0, 0);  {Move to next object in turn}
8  end;
9end;
10  
11procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
12  Shift: TShiftState);
13begin
14  case Key of
15    VK_RETURN: {enter extra code};
16  end;
17end;