задача

[Severe007]

var
x,Sum,sx,e:Double;
n,i,j,f,k:Integer;
begin
x:=StrToFloat(edt1.Text);
n:=StrToInt(edt2.Text);
Sum:=0;
for i:=1 to n do
begin
sx:=1;
for j:=1 to 2*i do
sx:=sx*x;
if odd(i+1) then
k:=-1
else
k:=1;
f:=1;
for j:=2 to 2*i-1 do
f:=f*j;
Sum:=Sum+sx*k/f;
end;
edt3.Text:=FloatToStr(Sum);
1111111111114.bmp
Нужно найти сумму всех начальных членов ряда, значение которых не меньше заданного числа е,0<е<1(т.е суммирование прекращается, как толькозначение некоторого члена ряда становится меньше е)

помогите с этой частью,пожалуйтса