Eu gostaria que o usuário pudesse escrever apenas números de 1 a 49 na caixa de edição. Eu sei como excluir letras e tenho a possibilidade de colocar apenas números, mas não posso limitá-lo a números específicos (por exemplo, de 1 a 49 - como no jogo de loteria). Adicionei o evento KeyDown para editar a caixa e coloque este código:

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

Como posso modificá-lo?