передвижение между Edit ами стрелоками на клавиатуре. как?

[Ночной Волк]

Доброго времени суток!
Могли бы Вы помочь мне с передвижением между Edit'ами с помощью стрелок на клавиатуре?

[_SERGEYX_]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = vk_right then edit2.SetFocus;
end;

[Alar]

Ночной Волк - обратите внимание на название темы - сейчас я переименовал. но не смогу этого делать всегда.

[Ночной Волк]

это не подходит...
объясняю суть моей задачи...
у меня кроссворд состоящий из edit'ов... и чтобы ввести след букву нужно перейти на другое поле нажав нужную кнопку, а именно вверх, вниз и тд...

[Пепел Феникса]

ну руками прописывайте, либо анализируйте по позиции в коде.