procedure TForm2.Diff_ButtonClick(Sender: TObject);
var
  a,b,x:real;
  n,i:integer;
  y_1,y_2,h,h1,h2,aa:real;		//y_1,y_2 – значения первой и второй производной в точке x соответственно
  y:array of real;

begin
  a:=StrToFloat(EditA.Text);          	//интервал дифференцирования A
  b:=StrToFloat(EditB.Text)+0.01;       //интервал дифференцирования B + костыль
  x:=StrToFloat(EditX.Text);          	//точка дифференцирования X
  n:=1000;				//n - число точек дифференцирования
  h:=(b-a)/n;                         	//шаг
  aa:=a;
  setlength(y,n-1);
    for i:=0 to Length(y)-1 do
    begin
    y[i]:=(sqrt(1+power(aa,2)))/aa;   	//функция F1
    aa:=aa+h;
    end;
					//проверка, входит ли X в границы интервала
  if (x<a) or (x>StrToFloat(EditB.Text)) then
  begin
  ShowMessage('Точка не входит в границы интервала');
  Exit;
  end;

  i:=trunc((x-a)/h+h/2);
  h1:=2*h;
  h2:=h*h;

  if i=0 then
  begin
  y_1:=(-3*y[0]+4*y[1]-y[2])/h1;
  y_2:=(2*y[0]-5*y[1]+4*y[2]-y[3])/h2;
  end;

  if ((i>0)and(i<n)) then
  begin
  y_1:=(-y[i-1]+y[i+1])/h1;
  y_2:=(y[i-1]-2*y[i]+y[i+1])/h2;
  end;

  if i=n then
  begin
  y_1:=(y[n-2]-4*y[n-1]+3*y[n])/h1;
  y_2:=(-y[n-3]+4*y[n-2]-5*y[n-1]+2*y[n])/h2;
  end;

  EditY1.Text:=FloatToStrF(y_1,ffFixed,7,4);	//выводим значение I производной
  EditY2.Text:=FloatToStrF(y_2,ffFixed,7,4);	//выводим значение II производной
end;