Точность вычисления

procedure TForm1.FormCreate(Sender: TObject);
var
  a,b,h:real;
  i:integer;
begin
  with StringGrid1 do
    begin
      ColCount:=2;
      a:=StrToFloat(InputBox('Начало отрезка','a:',''));
      b:=StrToFloat(InputBox('Конец отрезка','b:',''));
      h:=StrToFloat(InputBox('Шаг','h:',''));
      if a>b  then
        RowCount:=Trunc((a-b)/h)+2
          else
            RowCount:=Trunc((b-a)/h)+2;
      FixedCols:=0;
      FixedRows:=1;
      Cells[0,0]:='X';
      Cells[1,0]:='tg2x-3';
      ColWidths[0]:=60;
      ColWidths[1]:=60;
      Width:=ColWidths[0]+ColWidths[1]+23;
      Height:=250;
      Left:=0;
      Top:=0;
    end;
 
  BorderStyle:=bsDialog;
  ClientWidth:=StringGrid1.Width;
  ClientHeight:=StringGrid1.Height;
 
  i:=1;
  if a<b then
    while a<=b do
      begin
        StringGrid1.Cells[0,i]:=FloatToStr(a);
        StringGrid1.Cells[1,i]:=FloatToStr(tan(2*a)-3);
        a:=a+h;
        inc(i);
      end
    else
      while a>=b do
        begin
          StringGrid1.Cells[0,i]:=FloatToStr(a);
          StringGrid1.Cells[1,i]:=FloatToStr(tan(2*a)-3);
          a:=a-h;
          inc(i);
        end;
end;
 
end.

 while a<b+h/2 do
      begin

//i:=1;
  if a < b then
    h := -h;
  for i := 1 to StringGrid1.RowCount - 1 do
  begin
    StringGrid1.Cells[0, i] := floattostr(a);
    StringGrid1.Cells[1,i]:=FloatToStr(tan(2*a)-3);
    a := a - h;
  end;