// все очень просто, меняем свойство формы KeyPreview := True 
 // и пишем в обработчике FormKeyDown всего одну строчку 
 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
 begin 
 if Key = VK_RETURN then SendMessage(Handle, WM_NEXTDLGCTL, 0, 0); 
 end;