Не понятно по каким причинам не работает защита от дурака

[axell24]

В программе предусмотрен механизм защиты от не правильных действий человека, это уже третья программа где я использую этот способ, но в данном случае он почему-то не работает. Не могу понять почему.

P. S. Нужно сделать так, чтобы пользователь случайно не ввел буквы.

procedure TBaseForm.bNextClick(Sender: TObject);
Var  i, a : Integer;

begin
try   // Начало защищенного блока
  a := StrToInt(edPrOtv.Text); // Переводим строку в целое число
except  // Обработка ошибки
ShowMessage('Ошибочная запись числа');
Exit;
end;
  inc(NumVopr); // Увеличиваем номер вопроса на 1
  // Выводим в метку номер текущего вопроса и общее
// количество вопросов в виде "1/30"
  lNumVopr.Caption := IntToStr(NumVopr)+'/'+IntToStr(KolVopr);
  //Сохраняем в массиве текст вопроса,  возможных ответов и
  // правильного ответа
  TecStr[1]:= Memo1.Text;
  TecStr[2]:= edOtv1.Text;
  TecStr[3]:= edOtv2.Text;
  TecStr[4]:= edOtv3.Text;
  TecStr[5]:= edOtv4.Text;
  TecStr[6]:= edPrOtv.Text;
  // Записываем в файл вопрос и ответы
  For i := 1 to 6 do
     WriteLn(f, TecStr[i]);
  // Подготавливаем окно к новому вводу
  Memo1.Clear;
  edOtv1.Clear;
  edOtv2.Clear;
  edOtv3.Clear;
  edOtv4.Clear;
  edPrOtv.Clear;
  Memo1.SetFocus;
    // Если последний вопрос,
    //  то изменяем заголовок кнопки "Следующий…" на "Завершить"
  If (NumVopr = KolVopr) Then bNext.Caption := 'Завершить';
  // Проверяем, если тест создан, то завершаем работу
  If NumVopr>KolVopr Then
   Begin
     CloseFile(f);
     ShowMessage('Тест создан!');
     lNumVopr.Caption := '';
     sbSave.Visible := False;
     Panel1.Visible := True;
     Panel2.Visible := False;
     edNameTest.Text := '';
     edKolVopr.Text := '';
     Close;
     MainForm.Show;
   end;


end;

[Utkin]

Может Эдиты попутал? Вообще есть компонент в который по определению можно вводить только цифры и ничего более. На выходе из него сразу идет Integer.
Вот альтернативный вариант: http://www.delphi-manual.ru/digit.php?com=yes

[ByAlex]

Привет! Попробуй такой метод, при событии OnKeyPress напиши -

if not (Key in ['0'..'9']) then
   Key:=#0;

Будут вводиться только цифры!

[evg_m]

потому что вводишь не в тот edit (не в edPrOtv ) а в том который проверяешь все ОК.
для проверки добавь сразу при входе (первой строкой)

showMessage((sender as Tcomponent).name);

и у тебя будет ИМЯ компонента в который ты вводишь.

procedure TBaseForm.bNextClick(Sender: TObject);
Var  i, a : Integer;

begin
try   // Начало защищенного блока
  a := StrToInt(edPrOtv.Text); // Переводим строку в целое число

[alex_sed]

Не надо никаких защищенных режимов
Проще пользоваться функцией
a:=StrToIntDef(edPrOtv.Text, 0); // Если не число вернет 0
if a=0 then
begin
ShowMessage('Ошибочная запись числа');
Exit;
end;