Cambiar de campo con flechitas

[cesar_picazo]

Buenos dias a todos.

Estoy utilizando delphi 6 y estoy viendo si es posible hacer lo siguiente:

Tengo un formulario con 40 tedit, en los cuales quiero ver si es posible hacer que cuando se presionen las teclas de flechitas Abajo o Arriba salte al campo inmediato que este bajo dicho tedit.

Ejemplo:


Fomulario


tedit1 tedit4
tedit2 tedit5
tedit3 tedit6

El orden de tabularcion es 1,4,2,5,3,6 y necesito que si presiono flechitas si estoy en el campo 1 me pase al campo 2 y si estoy en el cinco me envie al 6 si presiono flechitas hacia abajo.

Nota: Se que existe la propiedad setfocus de cada objeto, pero el inconveniente es que la aplicacion ya cuenta con 30 formulario y hacerlo uno por uno me resulta mucho tiempo, no se si existe una forma de hacerlo mas facil en donde con una sola funcion lo logre y no tener que decirle campo por campo.

Sin más me despido y gracias por su ayuda.