[dec]

Hola,

Ahora mismo no puedo comprobarlo, pero, ¿es esto necesario?

Código Delphi [-]
if Key in ['0'..'9'] then
  {...}

¿No llegaría con la primera condición? Esto es...

Código Delphi [-]
if key in ['1'..'5'] then
  {...}

Pregunto...