Составить программу для вычисления значений функции F(x)=tgx

uses Math;
procedure TForm1.FormCreate(Sender: TObject);
var
  a,b,h:real;
  i:integer;
begin
  with strngrd1 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]:='tan(x)';
      ColWidths[0]:=60;
      ColWidths[1]:=60;
      Width:=ColWidths[0]+ColWidths[1]+23;
      Height:=250;
      Left:=0;
      Top:=0;
    end;
 
  BorderStyle:=bsDialog;
  ClientWidth:=Strngrd1.Width;
  ClientHeight:=strngrd1.Height;
 
  i:=1;
  if a<b then
    while a<=b do
      begin
        strngrd1.Cells[0,i]:=FloatToStr(a);
        strngrd1.Cells[1,i]:=FloatToStr(tan(a));
        a:=a+h;
        inc(i);
      end
    else
      while a>=b do
        begin
          strngrd1.Cells[0,i]:=FloatToStr(a);
          strngrd1.Cells[1,i]:=FloatToStr(tan(a));
          a:=a-h;
          inc(i);
        end;
end;