Códigos escape y virtual Keys Codes

[Cabanyaler]

Hola amigos.

Estoy intentando capturar si se pulsa la tecla TAB del teclado, pero no lo logro aún habiéndome estudiado la ayuda y consultando foros. Incluyendo este:

http://www.clubdelphi.com/foros/show...codigos+escape


Normalmente con la tecla Intro, lo he hecho del siguiente modo:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
      if(Key=#13) THEN
         SHOWMESSAGE('INTRO')
      ELSE
         SHOWMESSAGE('???')
end;

... y me funciona de maravilla, pero si intento lo mismo para la tecla TAb, no me funciona.

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
      if(Key=#9) THEN
         SHOWMESSAGE('TAB')
      ELSE
         SHOWMESSAGE('???')
end;

También he probado para ver cual es el texto que me saldría, por si acaso no devolvía exactamente ese texto, pero me imprime blanco con el siguiente código.

Código Delphi [-]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        if(Key=VK_TAB) THEN
           SHOWMESSAGE(WORDTOSTR(KEY))
        ELSE
           SHOWMESSAGE(WORDTOSTR(KEY))
end;

¿Alguien me podría decir como trabajar con las Virtual Keys Codes?. El fin es cuando pulse una determinada tecla de este tipo como (Tab, Esc, intro) realizar el evento que desee. Si sirve para algo... trabajo con D6 y WXP.

Gracias a todos.