//Пример кода : Деление на ноль с пунктом Except On 
var
  number, zero : Integer;
begin
  // Попытка деления целого числа на нуль, чтобы вызвать исключение
  Try
    zero   := 0;
    number := 1 div zero;
    ShowMessage('number / zero = '+IntToStr(number));
  except
    On E : Exception do
      ShowMessage('Вызвана ошибка'+E.ClassName+'с сообщением : '+
                  E.Message);
  end;
end;

//Пример кода : Деление на ноль с многочисленными пунктами Except On 
var
  number, zero : Integer;
begin
  // Попытка деления целого числа на нуль, чтобы вызвать исключение
  number := -1;
  Try
    zero   := 0;
    number := 1 div zero;
    ShowMessage('number / zero = '+IntToStr(number));
  except
    // Наше первое исключение не будет вызвано
    On E : EInOutError do
      ShowMessage('IO ошибка : '+E.Message);
    // Это исключение будет вызвано
    On E : EDivByZero do
      ShowMessage('Ошибка деления на zero : '+E.Message);
    // Перехват других ошибок
    Else
      ShowMessage('Неизвестная ошибка');
  end;
end;