Метод трапеций для определения пути обьекта в Delphi 7(нужно проверить)

[fanLUMEN]

Проверьте пожалуйста.
Обьект движется по прямой со скоростью v=v(t), где v - непрерывная функцыя времени t. Нужно определить путь S, который пройдёт обьект за время [a,b] от момента t=a до момента t=b(a<b). Получить численное и графическое представление решения задачи.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Chart1: TChart;
    Button2: TButton;
    Series1: TAreaSeries;
    Edit4: TEdit;
    Label7: TLabel;
    Procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   epsilon,v0:real;
implementation

{$R *.dfm}
Function FT(x:extended):extended;
begin
FT:=v0;
end;


procedure TForm1.Button2Click(Sender: TObject);
  var a,b:extended ;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  v0:=StrToInt(Edit4.Text);
  epsilon:= 0.01;
  Series1.Clear;
  while a <= b do
  begin
    Series1.AddXY(a, FT(a));
    a := a + epsilon;
  end;
end;

procedure trapeziya(a,b,n:extended);
var
k:integer;
i:extended;
s,step,o:extended;
begin
step:=abs((b-a)/n);

s:=0;
i:=a;
repeat
s:= s+fT(i);
i:=i+step;
until i>=b;

o:=step*((fT(a)+fT(b))/2+s) ;
Form1.Label4.Caption:=FloatToStrF(o,ffGeneral,9,6);


end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,n,o:extended;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
n:=StrToInt(Edit3.Text);
v0:=StrToInt(Edit4.Text);
trapeziya(a,b,n);

end;

end.