Delphi - Teclas de desplazamiento

Otra vez yo...

Quisiera saber como desplazamarme entre los "Edit" o cualquier otro componento con las teclas de desplazamiento.
Gracias.

procedure TForm1.Edit42KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_up then
Edit40.SetFocus
else
if key=vk_down then
Edit43.SetFocus
else
if key=vk_right then
Edit44.SetFocus
else
if key=vk_left then
Edit45.SetFocus
end;
Suerte