Проблема с циклом

[Angel_dark]

Здравствуйте, есть небольшая программка по вычислению суммы
n вводится с клавиатуры в поле Edt1
Проблема в том, что программа неправильно считает сумму, если задать n=2, то все будет нормально, но если другое число, к примеру 3, то результат будет -0.305(5), хотя должен быть -0.194

procedure TForm1.btn1Click(Sender: TObject);
begin
n:=StrToInt(edt1.text); 
r:=i-1;
s1:=Power((-1),r);
S:=0;
for i:=2 to n  do
begin
S:=s+(s1/((i*i)*(i-1))); 
Lbl2.Caption := FloattoStr(s);
end;

[Аватар]

r:=i-1;

какое значение в i при вычислении?

[Angel_dark]

Возможно я скажу глупость, но разве i не должен быть равен 2, 3 и т.д. до того, как он будет равен n?

[ZX Spectrum-128]

Возможно я скажу глупость, но разве i не должен быть равен 2, 3 и т.д. до того, как он будет равен n?

Вас не об этом спросили. Вы присваиваете r значение i-1. I до этого момента НИЧЕГО не присваивалось. Добрый компилятор занес в i значение 0, а может и нет.
Так что, в r у вас неизвестно что.
А то о чем вы говорите, написано у вас ниже и к этой строчке никакого отношения не имеет.

[Angel_dark]

Понял свою ошибку, засунул
r:=i-1;
s1:=Power((-1),r);
все в цикл и все нормально заработало
Спасибо за разъяснение