Проект project1 вызвал клаcc исключения 'External:SIGFPE'. В файле 'unit1.pas' в строке 56

Вроде пробовал менять формулу, не получилось. Вот сама строка : x1:=(-b+sqrt(d))/(2*a);

  label4.Caption:= Edit1.Text + 'x^2 + ' + Edit2.text + 'x + ' + edit3.text + ' =0';

   d:=sqr(b)-(4*a*c);

   if d < 0 then
   label5.Caption:='Корней нет';
   label6.caption:=' ';
   label7.caption:=' ';

   if d = 0 then
   label5.caption:='Один корень';
   label7.caption:=' ';
   x1:=(-b+sqrt(d))/(2*a);
   label6.caption:= FloatToStrF(x1,ffFixed,6,2);

   if d > 0 then
   label5.caption:='Два корня';