Решение матаматической задачи

[t10yj]

Добрый день. Помогите подправить значения для математической задачи.

  procedure TForm1.FormCreate(Sender: TObject);  //Процедура создания формы
begin
  EditXn.Text := '0,1';  //Ввод чисел в текстовые поля
  EditXk.Text := '3';
  EditH.Text := ' ';
  RadioGroup1.ItemIndex := 0;  //Выбор s
  Memo1.Clear;
  Button1Click(Sender);
end;

procedure Tab1(f: func; xn, xk, h: extended);   //Процедура вывода результатов
var
  x, y : extended;
begin
  Form1.Memo1.Lines.Add('                 РЕЗУЛЬТАТЫ:');
  Form1.Memo1.Lines.Add('');

  x := xn;

  Repeat
    y := f(x);

    Form1.Memo1.Lines.Add('           x=' + FloatToStrF(x,fffixed, 8,2)+
                       '           y=' + FloatToStrF(y,fffixed, 8,2));
    x := x + h;
  Until (x  > xk);
end;

procedure TForm1.Button1Click(Sender: TObject); //Процедура нажатия кнопки
var
  xn, xk, h : extended;  //Описание типов переменных
begin
  xn := StrToFloat(EditXn.Text);  //Считывание переменных
  xk := StrToFloat(EditXk.Text);
  h:= (xk - xn) / 10;
  EditH.Text := FloatToStr(h);
  Memo1.Clear();

   case RadioGroup1.ItemIndex of
   0: Tab1(sx,xn,xk,h);
   1: Tab1(yx,xn,xk,h);
     end;
          end;
end.

[evg_m]

type
  func =function(x: extended; n: integer): extended;

y:=f(x,n);

function sx(x:extended; n: integer): extended;
var
   r: extended;
   k: integer;
begin
   result:=1;
   r:=x*x;
   for k:=1 to n do begin
      result:=result +r*(2*k+1);
      r:=(r/k)*x*x;
   end;   
end;

[type_Oleg]

EditXn.Text := '0,1';  //Ввод чисел в текстовые поля

А если настойках ОС ( Язык и региональные параметры ) в качестве десятичного разделителя - не запятая, а точка ?
Будет ошибка. Потому что у вас далее просто:

xn := StrToFloat(EditXn.Text);

Лучше StrToFloatDef, но все равно будет ошибка.

[t10yj]

Сообщение от evg_m

type
  func =function(x: extended; n: integer): extended;

y:=f(x,n);

function sx(x:extended; n: integer): extended;
var
   r: extended;
   k: integer;
begin
   result:=1;
   r:=x*x;
   for k:=1 to n do begin
      result:=result +r*(2*k+1);
      r:=(r/k)*x*x;
   end;   
end;

Спасибо Вам огромное!