Работа клавиши Enter как Tab

{ 
  This code gives the  key the same habbit as the key to 
  change focus between Controls. 

  Mit diesem Code kann man sich mit der Enter Taste zwischen mehreren 
  Textfeldern bewegen.(anstatt nur mit der Tabulatortaste) 
}

 // Form1.KeyPreview := True ! 

procedure
 TForm1.FormKeyPress(Sender: TObject; var
 Key: Char);
 begin

   if
 Key = #13 then

   begin

     Key := #0;
     { check if SHIFT - Key is pressed }
     if
 GetKeyState(VK_Shift) and
 $8000 <> 0 then

       PostMessage(Handle, WM_NEXTDLGCTL, 1, 0)
     else

       PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
   end
;
 end
;

Другое по теме:

• Эмуляция нажатия клавиш
• Установка ловушки для клавиатуры
• Убрать программу из списка Ctrl+Alt+Delete