добрый день. вычислить значение суммы.

[Vse Strogo]

всегда были проблемы с циклами у меня.
задание: нужно вычислить значение суммы с заданной точностью, вычислить значение соответствующей функции.
у меня значения неправильные. видать что то неправильно.


procedure TForm2.Button1Click(Sender: TObject);

var y, x, s,p,k,e, f:real;
s1:string;
i,n:byte;
const eps=0.0001;
label bI;
begin
X:=strtofloat(s1);
if ((x*x+2*x+2) <>0) and ((x*x+2*x+2)>=0) then
y:=ln(1/((x*x+2*x+2)))
else
begin
messagedlg('Введины не верные данные!',mterror,[mbOK],0) ;
goto bI;
end;
s:=0;
p:=(1+x);
k:=-1;
f:=1;
n:=1;
repeat
f:=n;
p:= (p*p*x);
e:=P/f;
s:=s+k*(p/f);
k:=-k;
until e<=eps;
labelededit4.text:=floattostr(y);
labelededit3.text:=floattostr(s);
bI: end;
end.

[BDA]

Попробуйте (писал здесь, так что возможны ошибки):

s:=0;
z:=(1+x)*(1+x);
k:=-1;
n:=1;
an:=k*z/n;
while an>=eps do
begin
	s:=s+an;
	inc(n);
	z:=z*(1+x)*(1+x);
	k:=-k;
	an:=k*z/n;
end;