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));
end;
key:=0;
end;