Рассчитать значения выражения для разных значений аргумента

procedure TForm1.Button1Click(Sender: TObject);
const m=100; //количество точек
      eps=0.01;//точность
//функция разложения в ряд ln(2)
function f(n:integer):double;
var t,s:double;
    i:integer;
begin
t:=1;
s:=t;
for i:=2 to n do
 begin
  t:=-t;
  s:=s+t/i;
 end;
f:=s;
end;
var n,k:integer;
begin
//установим некоторые параметры таблицы
with StringGrid1 do
 begin
   fixedrows:=1;
   fixedcols:=0;
   colcount:=2;
   rowcount:=m+1;
   cells[0,0]:='N';
   cells[1,0]:='Y(n)';
  end;
//и некоторые параметры Чарта
with Chart1 do
 begin
  Title.Text.Clear;
  Title.Text.Add('Графики функции y(n)');
  Title.Text.Add('и ее контрольного значения');
  Series1.Title:='y=f(n)';
  Series1.SeriesColor:=clRed;  //цвет для легенды
  Series2.Title:='y=ln(2)';
  Series2.SeriesColor:=clBlue;
 end;
k:=0;
for n:=1 to m do
 begin
  series1.AddXY(n,f(n),'',clRed);
  series2.AddXY(n,ln(2),'',clBlue);
  with stringGrid1 do
   begin
    cells[0,n]:=inttostr(n);
    cells[1,n]:=formatfloat('0.0000',f(n))
   end;
  if (abs(f(n)-ln(2))<=eps)and(k=0) then k:=n;
 end;
ShowMessage('Заданная точность=0.01 достигнутая точность='+formatfloat('0.000',abs(f(m)-ln(2))));
if k=0 then ShowMessage('Заданная точность не достигнута')
else ShowMessage('Заданная точность достигается при '+inttostr(k)+' слагаемых')
end;