Мне бы хотелось, чтобы пользователь мог писать только цифры от 1 до 49 в поле ввода. Я знаю, как исключить буквы, и могу ставить только цифры, но не могу ограничить их конкретными цифрами (например, от 1 до 49 - как в лотерее). Я добавил событие KeyDown в поле редактирования и поместил этот код:

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

Как я могу изменить это?