Convertir variable tipo Word a Char

[andre]

Hola,

Estoy haciendo una validacion en un TEdit y no se como anular la tecla Key en caso de que se cumpla una condicion. El problema es que necesito hacerlo en el OnKeyDown y en este la variable Key es de tipo Word. En el evento OnKeyPress usaba Key := #0 , pero aún convertiendolo con Word(#0) no funciona. También necesito comprobar si la tecla es un número de 0 a 9 o el backspace, en el OnKeyPress hacía Key in ['0'..'9', #8] .

En definitiva necesitaría traducir este código del evento OnKeyPress al evento OnKeyDown.

if not (Key in ['0'..'9', #8]) then
  Key := #0
else
  if (Key <> #8) and (StrToInt(TEdit(Sender).Text + Key) > 999) then
    Key := #0;

Muchas gracias.