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

[TarasBer]

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

{$APPTYPE CONSOLE}

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

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

[TarasBer]

И вправду вылетает.
Да, мне теперь самому интересно, почему безо всяких исключений выводит +inf (и у меня, и у всех пользователей) программа, вычисляющая радиус дуги, сопрягающей два отрезка, в случае параллельных отрезков. Концы у отрезков целые, но для вычисления все вещественные.
Ничего такого я там с сопроцессором не делал!