Вычисление значений тригонометрических функций на основе разложения в ряд Маклорена Опции

[Mad Dam]

помогите пожалуйста сделать задание...
Вычисление значений тригонометрических функций на основе разложения в ряд Маклорена
1. Вычислить с заданной точностью значения тригонометрических функций arctg(x);
2. Построить графики функций arctg(x), где x - ограниченно;
3. Оценить погрешности вычислений;

[Mad Dam]

вот смотри код немного переделал...

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Chart1: TChart;
    Series1: TFastLineSeries;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

function _arctan(x: double): double;
const
  eps = 0.0001;
var
  next: double;
  i: integer;
begin
  result := 0; next := x; i := 1;
  repeat
    result := result + next / i;
    next := - next * sqr(x);
    inc(i, 2);
  until abs(next) < eps;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  x, delta: double;
  n: integer;
begin
  Edit3.Text := 'Вычисление по Маклорену = ' + FloatToStr(_arctan(x));
  Series1.Clear;
  x := -0.99; n := 0;
  while x < 1 do begin
    Series1.AddXY(x, _arctan(x));
    delta := delta + abs(_arctan(x) - ArcTan(x));
    x := x + 0.01;
    inc(n);
  end;
  Edit1.Text := 'Погрешность = ' + FloatToStr(delta / n);
  Edit2.Text := 'Проверка вычислений = ' + FloatToStr(ArcTan(x));
end;
end.

получилася следущая программа...