Me gustaría que el usuario pudiera escribir solo números del 1 al 49 en el cuadro de edición. Sé cómo excluir letras y tengo la posibilidad de poner solo números, pero no puedo limitarlo a números específicos (por ejemplo, del 1 al 49, como en el juego de lotería). Agregué el evento KeyDown al cuadro de edición y puse este código:

   if not (KeyChar in ['1'..'9']) then
   begin
      ShowMessage('Invalid character');
      KeyChar := #0;
   end;

¿Cómo puedo modificarlo?