Delphi奇怪问题，求解

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k: Integer;
begin
  i := 1;
  j := 0;
  try
    k := i div j;
  except
    on E:Exception do
    begin
      showmessage('错误');
    end;
  end;
  showmessage(inttostr(k));
end;当我把最后一句showmessage(inttostr(k));去掉时，运行程序就是不会执行异常处理里面的showmessage('错误')语句，这是怎么回事，求知道的兄弟姐妹们解释解释，谢谢啦