Вычислить интеграл методом трапеций

[alex55]

При запуске выдает ошибку,подскажите, что не так я сделал? Задание такое: Вычислить значение определенного интеграла методом трапеций с точностью e. инт.bmp

 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Math;

type
  TForm1 = class(TForm)
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function f(x: double): double;
var del : double;
begin
   f:=ln((-1*x*x+1)/(x*x+2));

end;

procedure Trap;
var
   n, a, b : integer;
   s, h, result, l, eps : double;
begin
   eps := StrToFloat(Form1.ComboBox1.Text);
   a := StrToInt(Form1.Edit2.Text);
   b := StrToInt(Form1.Edit3.Text);
   if a >= b then
      begin
         MessageBox(0, 'Значения начала и конца отрезка заданы не корректно!', 'Ошибка!',MB_OK or MB_ICONERROR);
         Form1.Edit2.SetFocus;
         exit
      end;
 
   n := 1;
   h := b - a;
   result := (f(a)*h+ f(b))/2* h;
   n := 1;
   repeat
      s := result;
      n := n * 2;
      h := (b - a) / n;
      l := a;
      result := 0;
    
      while l < b do
      begin
         result := result + f(l) * h;
         l := l + h;
      end;
    until abs(s - result) <= eps;
    Form1.StaticText2.Caption := FloatToStrf(s, TFloatFormat(0),8,0);
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
   Close;
end;
  


end.