Ошибка в коде программы по расчёту бесконечной суммы с условием (Delphi)

[IReapeRI]

Здравствуйте, помогите решить одну задачку в Delphi, вот сам текст задачи:
Вычислить бесконечную сумму с заданной точностью E (E>0). Считать что требуемая точность достигнута, если вычислена сумма нескольких первых слагаемых и очередное слагаемое оказалось по модулю меньше, чем E,- это и все последующие слагаемые можно не учитывать.

А вот мой код:

procedure TForm1.Button1Click(Sender: TObject);
var s,e:real;
i:extended;

begin
e:=StrToFloat(edit1.Text);
i:=0;
s:=1/2;
repeat
 i:=i+1;
 s:=1/(power(4,i)+power(5,i+2));
 until abs(s)<=e;

label1.Caption:=format('%-3.5f',[s]);
end;

Укажите пожалуйста на ошибки, посоветуйте, что исправить.

[Zer0]

Пока вижу то, что сумму Вы не считаете, а только отдельные слагаемые, соответственно ответом будет последнее слагаемое, оказавшееся меньше заданной точности
I - не требует типа extended, вполне будет достаточно integer

[IReapeRI]

Пока вижу то, что сумму Вы не считаете, а только отдельные слагаемые, соответственно ответом будет последнее слагаемое, оказавшееся меньше заданной точности
I - не требует типа extended, вполне будет достаточно integer

Точно, спасибо и как я не доглядел, виной всему позднее время и новогодняя беготня) Еще раз спасибо, сейчас вроде бы все работает, с наступающим!)