[Gogolinsky]

Хочу научиться работать с обработчиком событий try exept end.
вот написал код:

Код:

procedure TForm1.btn1Click(Sender: TObject);
var
  h: Integer;
  l: string;
begin
h:=7;
lbl1.caption:='';
try
l:=inttostr(Round(h/0));
except
l:='нет';
end;
lbl1.Caption:=l;
end;

но в метку 'нет' не помещается, а выдается ошибка. В чем дело?

[angvelem]

Код:

  try
    l := IntToStr(Round(h / 0));
  except
    on EZeroDivide do
      l := 'нет';
  end;

[cotseec]

и запуск программы не из под IDE (запускать прямо в Windows)