Мда, я чет не въеду, на кой такой гемор, если уж тебе надо ток цифры вводить, то надо сделать так чтоб другие символы просто к примеру подменялись на ноль или вообще не вводились, а выдовался звуковой сигнал. Пример: if not (key in ['0'..'9', ' '_ ',', '.']) then // Задаёш то что можно вводить begin key:=#0; // Вводит 0 вместо ненужного beep; // Выдаёт звуковой сигнал end; |