Проблема TRY ... EXCEPT ... END

[chandrasecar]

Здравствуйте.
Извините за столь простой вопрос, если Вы его таковым считаете, но я к сожалению не смог в нем разобраться. Прочитал литературу и кажется что делаю все правильно, однако ничего не получается.

Вот код (Смастерил на скорую руку):

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:extended;
    i:integer;
begin
  b:=20;
  c:=0;
  for i:=-5 to 5 do begin
    c:=c+1;
    try
      a:=b/i;
      ListBox1.Items.Add('Шаг '+FloatToStr(c)+'a = '+FloatToStr(a));
    except
      on EZeroDivide do ListBox1.Items.Add('Шаг '+FloatToStr(c)+'Ошибка деления!');
    end;
  end;
end;

Число b однажды должно поделиться на 0 и в этом случае по идее должен выполниться фрагмент EXCEPT ... END, но при выполнении кода выдается ошибка EZeroDivide. А нужно чтобы вместо ошибки выполнялся какой-то код. В чем моя ошибка, как нужно правильно записать такой код?

Благодарю!

[Jeni]

А программа запускается сама по себе или из-под Дельфи? Если второе, то Дельфи перехватывает прерывания (по умолчанию).

[odi_noki]

В Делфи7 например делается так -
Tools/Debugger Options на вкладке Language Exceptions нужно снять флаг Stop On Delphi Exceptions

[chandrasecar]

Спасибо всем большое! Значит код правильный, проблема в опциях программы.

[Arkuz]

Сообщение от chandrasecar

Спасибо всем большое! Значит код правильный, проблема в опциях программы.

Я обычно для проверки обработки исключений компилирую и запуская непосредственно экзеху с папки...