selecionar button quando apertar tecla

[666999 0]

Pessoal estou com uma duvida

estou criando um sistema e tipo

 

tenho varios button

tipo

button1

button2

button3

button4

 

e quero quando apertar a tecla Q

ele vai seleciona o button1

e quando apertar denovo a tecla Q

ele seleciona o button 2

 

e quando apertar a tecla p

ele vai seleciona o button3

e quando apertar denovo a tecla Q

ele seleciona o button 4

 

 

seria algo parecido quando aperta a tecla TAB

 

como faço isso? http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

é

delphi 7

[cfesta 0]

Esse código faz a tecla "Q" funcionar como TAB:

 

if Key = 81 then
   Perform(Wm_NextDlgCtl,0,0);