Составить программу вычисления значений функции F(x) на отрезке [a; b] с шагом h. Результат представить в виде таблицы

procedure TForm1.Button1Click(Sender: TObject);
var a,b,h,x,y:double;
    k:integer;
begin
with StringGrid1 do
  begin
   colcount:=2;
   rowcount:=2;
   cells[0,0]:='X';
   cells[1,0]:='f(x)';
  end;
val(Edit1.Text,a,k);
if k<>0 then
 begin
  ShowMessage('Íåâåðíî ââåäåíî çíà÷åíèå íà÷àëà äèàïàçîíà à');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
val(Edit2.Text,b,k);
if (k<>0)or(b<=a) then
 begin
  ShowMessage('Íåâåðíî ââåäåíî çíà÷åíèå êîíöà äèàïàçîíà b');
  Edit2.Clear;
  Edit2.SetFocus;
  exit;
 end;
val(Edit3.Text,h,k);
if (k<>0)or(h>=b-a) then
 begin
  ShowMessage('Íåâåðíî ââåäåíî çíà÷åíèå øàãà h');
  Edit3.Clear;
  Edit3.SetFocus;
  exit;
 end;
x:=a;
k:=1;
repeat
y:=2*cos(x)-1;
inc(k);
with StringGrid1 do
 begin
  RowCount:=k;
  Cells[0,k-1]:=formatfloat('0.00',x);
  Cells[1,k-1]:=formatfloat('0.000',y);
 end;
x:=x+h;
until x>b+h/2;
end;