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

[TarasBer]

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

{$APPTYPE CONSOLE}

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

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