Создать форму «Табулирование функции» для вычисления функции y=sin(x)+1 с запросом левой, правой границы и шага

{$R *.dfm}
function f(x:double):double;//функция
begin
f:=sin(x)+1;
end;
function f1(x:double):double;//1 производная
begin
f1:=cos(x);
end;
//Подготовка формы
procedure TForm1.FormCreate(Sender: TObject);
begin
popupmenu:=PopupMenu1; //присвоим контектное меню форме
//установим некоторые параметры таблицы
with StringGrid1 do
 begin
   fixedcols:=0;
   fixedrows:=1;
   colcount:=2;
   cells[0,0]:='x';
   cells[1,0]:='y';
  end;
//и некоторые параметры Чарта
with Chart1 do
 begin
  Title.Text.Clear;
  Title.Text.Add('Графики функции y=sin(x)+1');
  Title.Text.Add('и ее производной');
  Series1.Title:='y=sin(x)+1';
  Series1.SeriesColor:=clRed;  //цвет для легенды
  Series2.Title:='y=cos(x)';
  Series2.SeriesColor:=clBlue;
 end;
LabeledEdit1.EditLabel.Caption:='Введите левую границу a=';
LabeledEdit2.EditLabel.Caption:='Введите правую границу b>a b=';
LabeledEdit3.EditLabel.Caption:='Введите шаг h<b-a  h=';
end;
//меню Вычислить
procedure TForm1.N1Click(Sender: TObject);
var a,b,h,x,dx:double;
    k:integer;
begin
//ввод значений с проверкой
if TryStrToFloat(LabeledEdit1.Text,a)=false then
 begin
  ShowMessage('Значение a введено неверно');
  LabeledEdit1.Clear;
  LabeledEdit1.Setfocus;
  exit;
 end;
if(TryStrToFloat(LabeledEdit2.Text,b)=false) or(b<=a)then
 begin
  ShowMessage('Значение b введено неверно');
  LabeledEdit2.Clear;
  LabeledEdit2.Setfocus;
  exit;
 end;
if(TryStrToFloat(LabeledEdit3.Text,h)=false)or (h>=b-a)then
 begin
   ShowMessage('Значение шага введено неверно');
   LabeledEdit3.Clear;
   LabeledEdit3.Setfocus;
   exit;
  end;
//создание таблицы значений
x:=a;
k:=1;
while x<=b do
 begin
  inc(k);
  with stringGrid1 do
   begin
    RowCount:=k;
    cells[0,k-1]:=formatfloat('0.0',x);
    cells[1,k-1]:=formatfloat('0.0000',f(x));
    cells[2,k-1]:=formatfloat('0.0000',f1(x));
   end;
  x:=x+h;
 end;
//построение графиков
x:=a;
dx:=0.01;
while x<=b+h/2 do
 begin
  series1.AddXY(x,f(x),'',clRed);
  series2.AddXY(x,f1(x),'',clBlue);
  x:=x+dx;
 end;
end;
//меню Выход
procedure TForm1.N2Click(Sender: TObject);
begin
close
end;
//контекстное меню Очистить поле вывода
procedure TForm1.N3Click(Sender: TObject);
var i:integer;
begin
//очистка таблицы
with StringGrid1 do
for i:=1 to RowCount-1 do
Rows[i].Clear;
end;