Задание по Делфи цикл

Написать программу, которая выводит таблицу значений функции y(x) на фото, и ее разложение в ряд s(x) на фото для x, изменяющихся в интервале от Xn до Xk с шагом h. Функцию s(x) вычислить с точностью eps. Вывести число итераций необходимое для достижение заданной точности.
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='-2';
Edit2.Text:='-0,1';
Edit3.Text:='0,25';
Edit4.Text:='0,001';
Memo1.Clear;

end;
procedure TForm1.Button1Click(Sender: TObject);
var
xn,xk,x,h,e,a,s,y:Extended;
n:Integer;
begin
Memo1.Lines.Add('Вычисление таблицы значений функции');
Memo1.Lines.Add('Исходные данные:');
xn:=StrToFloat(Edit1.Text);
Memo1.Lines.Add('xn= '+FloatToStrF(xn,ffFixed,6,2));
xk:=StrToFloat(Edit2.Text);
Memo1.Lines.Add('xk= '+FloatToStrF(xk,ffFixed,6,2));
h:=StrToFloat(Edit3.Text);
Memo1.Lines.Add('h= '+FloatToStrF(h,ffFixed,8,3));
e:=StrToFloat(Edit4.Text);
Memo1.Lines.Add('eps= '+FloatToStrF(e,ffFixed,8,5));
Memo1.Lines.Add('Таблица знацений функции');
Memo1.Lines.Add('x S(x) Y(x) n');
x:=xn;
Repeat
a:=1;
S:=1;
n:=0;
While Abs(a)>e Do
Begin
Inc(n); //n:=n+1
a:=(exp(n*ln(-a)))*exp((2*n)*ln(1+x))/n;
s:=s+a;
end;
y:=Ln(1/(2+2*x+Sqr(x)));
Memo1.Lines.Add(FloatToStrF(x,ffFixed,6,2)+' '+FloatToStrF(s,ffFixed,8,4)+' '+FloatToStrF(y,ffFixed,8,4)+' '+IntToStr(n));
x:=x+h;
Until x>xk+h/2
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Memo1.Clear;
end;