[senpiterno]

Pruba esto:

Código Delphi [-]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
      VK_BACK  :showmessage('se presiono backspace, que tiene el codigo de tecla ' + IntTostr(VK_BACK));
      VK_ESCAPE  :showmessage('se presiono escape, que tiene el codigo de tecla ' + IntTostr(VK_ESCAPE));
      VK_RETURN : showmessage('se presiono enter, que tiene el codigo de tecla ' + IntTostr(VK_RETURN));
      VK_LEFT : showmessage('se presiono <-, que tiene el codigo de tecla ' + IntTostr(VK_LEFT));
      VK_RIGHT : showmessage('se presiono ->, que tiene el codigo de tecla ' + IntTostr(VK_RIGHT));
      VK_UP  : showmessage('se presiono la tecla de dirección arriba, que tiene el codigo de tecla ' + IntTostr(VK_UP));
      VK_DOWN   : showmessage('se presiono la tecla de dirección abajo, que tiene el codigo de tecla ' + IntTostr(VK_DOWN));
      //y asi sucesivamente con todas las teclas que quieras
      //los codigos virtuales son constantes que almacenan el valor
      //que referencia la tecla citada, en este caso de tipo integer
      //enter=13.....
 end;
 key:=0;//si no quieres que se imprima el caracter en el edit

end;

Saludos