Разработать программу, в которой предусмотреть управление

[student_23]

Здравствуйте! Просьба проверить на ошибки.
Если таковые имеются. Исправить. Спасибо.

Разработать программу, в которой предусмотреть управление вычислительным процессом с помощью кнопок, расположенных на инструментальной панели

unit Unit1;

interface

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

type
  TFunction = function(x: Double): Double;
  TMainForm = class(TForm)
    MathematicalTaskImage: TImage;
    MathematicalTaskLabel: TLabel;
    FunctionStepLabel: TLabel;
    FunctionStepEdit: TEdit;
    FunctionChart: TChart;
    Series1: TLineSeries;
    MainMenu: TMainMenu;
    EnterIntervalStartMenuItem: TMenuItem;
    EnterIntervalEndMenuItem: TMenuItem;
    DrawChartMenuItem: TMenuItem;
    procedure EnterIntervalStartMenuItemClick(Sender: TObject);
    procedure EnterIntervalEndMenuItemClick(Sender: TObject);
    procedure DrawChartMenuItemClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  xStart, xEnd: Double;

implementation

uses Unit2;

{$R *.dfm}

function Factorial(n: Integer): Integer;
begin
  if n = 0 then
    result := 1
  else
    result := n*Factorial(n - 1);
end;

function Func(x: Double): Double;
var
  s, an: Double; 
  n: Integer; 
begin
  s := 0;
  an := 1;
  n := 0;
  while an >= 0.001 do 
  begin
    an := ((2*n + 1)/Factorial(n))*power(x, 2*n);
    s := s + an;
    inc(n);  
  end;
  result := s;    
end;

procedure ShowResult(f: TFunction; xStart, xEnd: Double);
var
  x, y, h: Double;
  n: Integer;
begin
  MainForm.Series1.Clear;
  h := (xEnd - xStart)/9;
  MainForm.FunctionStepEdit.Text := FloatToStrF(h, ffFixed, 10, 2);   
  x := xStart;
  for n := 0 to 9 do 
  begin
    y := f(x);
    MainForm.Series1.AddXY(x, y);
    x := x + h;
  end;
end;

procedure TMainForm.EnterIntervalStartMenuItemClick(Sender: TObject);
begin
  InputForm.InputLabel.Caption := 'Введите начало интервала (Xs):';
  InputForm.InputEdit.Clear;
  InputForm.ShowModal;
  xStart := StrToFloat(InputForm.InputEdit.Text);
end;

procedure TMainForm.EnterIntervalEndMenuItemClick(Sender: TObject);
begin
  InputForm.InputLabel.Caption := 'Введите конец интервала (Xe):';
  InputForm.InputEdit.Clear;
  InputForm.ShowModal;
  xEnd := StrToFloat(InputForm.InputEdit.Text);
end;

procedure TMainForm.DrawChartMenuItemClick(Sender: TObject);
begin
   ShowResult(Func, xStart, xEnd);
end;

end.

[p51x]

Компилится? Запускается? Делает то, что положено? Профит... Препод допроверит.