Исключения FPU Опции

[TarasBer]

Создаю тут, потому что мне кажется, что это относится к асму.

{$APPTYPE CONSOLE}

var
  a: extended;
begin
  a := sqrt(-1);
  writeln(a);
  readln;
end.

Я хочу, чтобы это программа вывела на экран NAN. Меня вполне устраивает значение "не число". Неопределённый результат - тоже результат, что такого-то. Но программа вылетает. Причём вылет происходит не в момент вычисления корня, а при выгрузке результата в память. Что надо сделать, чтобы программа не вылетала? (Вариант writeln('NAN') - не предлагать).

[TarasBer]

> Так, это само собой: в секции инициализации модуля OpenGL есть код, который устанавливает маску исключений.

Я об этом и спрашивал с самого начала. Вот, наконец-то я знаю ответ на изначальный вопрос.

> Только вот хорошо ли это?

Да. Потому что если я рисую график логарифма, и у меня по умолчанию интервал от -10 до 10, то для половины точек значение не определено. Обрабатывать исключение для половины точек - это идиотизм. Исключения - они на то и исключечния, что нужны для нештатных ситуаций. В случае построения графика функции неопределённое значение - это штатная ситуация.
ПС. Я не против исключений, я против их неуместного использования.