Переключение между компонентами формы

Привет Всем!

Подскажите пожалуйста как реализовать переключение между компонентами формы в порядке TabOrder, по нажатию Enter. Т.е. нужно передавать фокус между компонентами по Enter`у.

В обработчике OnKeyDown пытаюсь эмулировать Tab 2 - мя способами:
1. If Key = 13 then KEY:=9;
2. If Key = 13 then keybd_event(VK_TAB,0,0,0);

Ничего не получается. Задача вроде стандартная, может кто писал :)
Спасибо.

If Key = 13 then edit1.setfocus;

тока есть функция которая следующий по порядку найдет, в хелпе поищи

if key=vk_return then findnextcontrol(sender as wincontrol,true,true,false).setfocus;

обычно рекомендуют такую конструкцию:

кей превью кстати еще в тру надо ставить

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then begin
Key:=#0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;

Большое спасибо :))

Можно еще так:

if Key = #13 then begin SelectNext(Sender as TWinControl, True, True); Key := #0; end; end;