Простая арифметическая функция выдает неверное значение delphi

[Inqui]

Всем доброго времени суток, проблема в следующем:
имеется функция

function funcalfa4(alfa1,alfa2,alfa3,fi1,fi2,fi3:real):real;
 var Z:real;
 begin
  Z:=(sqr(alfa2)-sqr(alfa3))*fi1+(sqr(alfa3)-sqr(alfa1))*fi2+(sqr(alfa1)-sqr(alfa2))*fi3;
 Z:=Z/((alfa2-alfa3)*fi1+(alfa3-alfa1)*fi2+(alfa1-alfa2)*fi3);
 Z:=Z/2;
 funcalfa4:=Z;
 end;

Эта функция должна считать большую дробь, поэтому для удобства я разбил ее на 3 части.

Программа выдавала ошибку "<не помню что> floating point" , и я поставив точку остова начал смотреть что получается. Функции передаются перменные:
alfa1=2.7,alfa2=3.2,alfa3=3.7,fi1=1 0135,287637,fi2=10101,383947,fi3=10 074,720304.
и Z на первой же строке становится равной 2,6369023136e-308.
На калькуляторе ручками получается в этой строке Z=-38,032. Подстажите из-за чего может быть такая проблема ? Заранее спасибо