[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;

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