No me funciona TRY - EXCEPT - END

[leanfreue]

Hola amigos, estoy tratando de probar el uso de excepciones, pero seguramente hay algo que estoy haciendo mal.
En el siguiente ejemplo, esperaba que no me apareciera ningún mensaje de error, pero me aparece:
"...Exe raised exception EDivByZero with message 'Division by Zero'..."

Código Delphi [-]
procedure Tfrm_clientes.b_ErrorClick(Sender: TObject);
var
  a,b,c: Integer;
begin
  a := 15;
  b := 0;
  try
    c := a div b;
    txtCodigo.Text := IntToStr(c);
  except
    on EDivByZero do
      txtCodigo.Text := 'cero';
  end;

end;

¿Qué estoy haciendo mal?
(Trabajo con Delphi 7)
Les agradezco desde ya por su tiempo.