Программирование циклического процесса

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,n:integer;
a,b,xi,h,IAF,IMF,IFx,IAFt,IMFt,IFxt,Fa,Fb:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
n:=strtoint(edit3.text);
h:=(b-a)/n; IAF:=0; IMF:=0; IFx:=0; IAFt:=0; IMFt:=0; IFxt:=0;
Fa:=1/sqrt(2+0.5*cos(a));
Fb:=1/sqrt(2+0.5*cos(b));
 
for i:=1 to n do
begin
 
// метод прямоугольников
xi:=a+h/2+h*(i-1);
IFx:=1/sqrt(2+0.5*cos(xi));
IMF:=h*(1/sqrt(2+0.5*cos(xi)))+IFx;
IAF:=IMF/xi;
sg.Cells[0,i]:=floattostr(xi);
sg.Cells[1,i]:=floattostr(IAF);
sg.Cells[2,i]:=floattostr(IMF);
sg.Cells[3,i]:=floattostr(IFx);
sg.RowCount:=sg.RowCount+1;
 
//метод трапеций
xi:=a+h/2+h*(i-1);
IFxt:=1/sqrt(2+0.5*cos(xi));
IMFt:=(((abs(Fa+Fb))*h)/2)+(h*(1/sqrt(2+0.5*cos(a+i*h))))+IFxt;
IAFt:=IMF/xi;
sg.Cells[4,i]:=floattostr(xi);
sg.Cells[5,i]:=floattostr(IAFt);
sg.Cells[6,i]:=floattostr(IMFt);
sg.Cells[7,i]:=floattostr(IFxt);
end;
end;