ПРИМЕР: Деление на ноль
var
number, zero :Integer;
begin
Try
zero := 0;
number := 1 div zero;
ShowMessage(‘number / zero = ‘+IntToStr(number));
Except
ShowMessage(‘Неизвестная ошибка’);
end;
end;