Сумма ряда

var x,fact: integer; summa:float; znak:boolean;
begin
x:= StrtoInt(Edit1.text);
for i:=2 to x step 2 do
begin
fact:=0; znak:=true; summa:=0;
for i:=2 to x do fact:=fact*i;
if znak = false then 
 begin
 summa:=summa - Power((2*x),i)/fact
 znak:=true;
 end else 
 begin
 summa:=summa + Power((2*x),i)/fact
 znak:=false;
 end;
end;
end;

function ryad(x:Real; n: Integer):real;
var i, znak: integer;
    sum, fact: real;
begin
znak := -1; // На втором шаге -;
fact := 2; //Факториал 2 = 2
lastFactNum := 2;
sqrtI := 2*x * 2*x;//2 степень числителя
chislit := 2*x * 2*x;//числитель на первом шаге 
 
sum := chislit / fact;//первый элемент
 
for i := 2 to n do // n - кол-во слогаемых в ряду
    begin
    chislit := chislit * sqrtI; //Числитель на текущем шаге
    fact :=  fact * (lastFactNum+1 + lastFactNum);//Факториал текущего числа
    a := chislit / fact;
    a := znak * a;
    sum := sum + a;
    lastFactNum := lastFactNum + 2;//Факториал какого числа
    znak := znak * (-1);
    end;
Result := sum;      
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, n: integer;
  x, f, a, k: real;
begin
  x := 1;
  n := 3;
  f := 0;
  k := -1;
 
  a := (2 * x) * (2 * x);
 
  for i := 1 to n do
  begin
    k := k * (-a) / ((2 * i - 1) * 2 * i);
    f := f + k;
  end;
  ShowMessage(Format('F = %.10n', [f]));
end;