Fórum Duvidas if Key Tform1 #383167

Olá  pessoal boa tarde   Como faço para ultilizar o seguinte codigo   procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key = VK_up Then
       ShowMessage('Apertou Up');       if Key = VK_left Then
      ShowMessage('Apertou down');      if Key = VK_left Then
       ShowMessage('Apertou left');       if Key = VK_right Then
       ShowMessage('Apertou rigth'); end;     bem agora vao as duvidas, não consigo trocar as teclas VK_up  para a tecla W ou outra sucestivamente, pesquisei mas nao consegui fazer     if key = #87  then (instrução)     bem ai tem outro problema com as teclas, a tela do programa possui o desenho das teclas direcionais up, down, left e rigth, quando eu clico com o mouse sobre elas a msg aparece, ai quando eu tendo aperta-las pelo teclado novamente não aciona mais, pois os botoes ficaram selecionados, ai as teclas do teclado funcionam no modo apenas selecionar os botoes, já tentei Tabstop false, mas não adiantou, esse selecionamento esta comprometentdo o funcionamento das teclas, como faço para que quando eu clique como o mouse sobre ela ela faça o comando e volte ao estado nao selecionado?