Faça com que a tecla Enter funcione como uma aba nos aplicativos Delphi

Sabemos que, geralmente, pressionar a tecla Tab move o foco de entrada para o próximo controle e Shift-Tab para anterior na ordem de tabulação do formulário. Ao trabalhar com Aplicativos do Windows, alguns usuários esperam intuitivamente que a tecla Enter se comporte como uma tecla Tab.

Os exemplos abaixo são escritos com a suposição de que não há botão padrão no formulário. Quando o formulário contém um botão cuja propriedade Padrão está definida como True, pressione Enter em tempo de execução executa qualquer código contido no manipulador de eventos OnClick do botão.

~~~~~~~~~~~~~~~~~~~~~~~~~
procedimento TForm1.Edit1KeyPress (Remetente: TObject; var Chave: Char);
início
If Key = # 13 Então comece
Se HiWord (GetKeyState (VK_SHIFT)) <> 0, então
SelectNext (Remetente como TWinControl, False, True)
outro
SelectNext (Remetente como TWinControl, True, True);
Chave: = # 0
fim;
fim;
~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~
procedimento TForm1.DBGrid1KeyPress (Remetente: TObject; var Chave: Char);