Проблема с формулой суммы

[kris778]

имеется формула вот:
14_htm4.bmp
имеется код вот:

procedure Tr2_4.SpeedButton1Click(Sender: TObject);
var i:integer;
Nia,lyambda_i,THa:extended;
begin
THa:=0;
Nia:=strtofloat(edit1.Text);
lyambda_i:=strtofloat(edit3.text);
i:=strtoint(edit4.text);
for i:=i-1 to 1 do begin
THa:=THa+Nia*lyambda_i
end;
edit2.Text:=floattostrf(THa,fffixed ,4,5);
end;

проблема в том что я незнаю как правильно описать в дельфи i-1 можете помочь?