Ошибка в функции

[Svejk]

Помогите пожалуйста понять в чем ошибка

function fact(x:integer):extended ;
  begin
    if x>0 then
    result:=x*fact(x-1)
    else Result:=1;
  end;

function Sum(n:Integer; x:real):Extended;
  var
    m:Integer;
  begin
    for m:=0 to Trunc(n/2) do
    result:=result+intPower(x,n-2*m)*((intPower(-1,m))/(intpower(2,n+1)))*sqrt((fact(n)*(2*n+5))/(2*fact(n+4)))*((fact(2*n-2*m+3))/(fact(n-m+1)*fact(m)*fact(n-2*m)));
  end;

Выдает return value of function 'Sum' might be undefined

[Svejk]

хотя уже не нужно, потерял присвоение результата нулю при копировании)