[U.B.M.]

Для Y(x) вместо

Код:

function TFuncForm.Y(x: extended): extended;
begin
  Result := (exp(x) - exp(-x)) / 2;
end;

надо

Код:

function TFuncForm.Y(x: extended): extended;
begin
  Result := (1-sqr(x)/2)*cos(x)-x*sin(x)/2;
end;

Для S(x) надо в этой строчке покопаться

Код:

function TFuncForm.S(x, e: extended): extended;
...
    a := a * (sqr(x) / (4*sqr(i) + 10*i + 6));
...

По-идее должно быть

Код:

function TFuncForm.S(x, e: extended): extended;
...
    a := -a * sqr(x)*(2*sqr(i+1)+1) / (sqr(2*i+1)*(2*i+2));
...