[Alegun]

Код:

...
uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
var
  xn, xk, h, e, x, y, t, s: real;
  n: Integer;
  begin
  xn:= StrToFloat(Edit1.Text);//  0.1;
  xk:= StrToFloat(Edit2.Text);//0.5;
  h := StrToFloat(Edit3.Text);//0.1;
  e := StrToFloat(Edit4.Text);//0.0001;

  Memo1.Clear;
  Memo1.Lines.Add('Результаты ст. гр. 5В011100 Гулов Е.В.');
  Memo1.Lines.Add('xn='+ Edit1.Text);
  Memo1.Lines.Add('xk='+ Edit2.Text);
  Memo1.Lines.Add('h=' + Edit3.Text);
  Memo1.Lines.Add('e=' + Edit4.Text);

  if RadioGroup1.ItemIndex = 0 then
  begin
  x := xn;
  while x <= xk do
  begin
    n := 0;
    t := x;
    s := t;
    while Abs(t) / (2 * n + 1) > e do
    begin
      n := n + 1;
      t := -t * x * x;
      s := s + t / (2 * n + 1);
    end;
    y := arctan(x);
    Memo1.Lines.Add('При х=' + formatfloat('0.0', x) + ' сумма=' + formatfloat
        ('0.0000', s) + ' y=' + formatfloat('0.0000', y) + ' N=' + inttostr
        (n + 1));
    x := x + h;
  end;

  end else

    Tabl(nil {должна быть типа fun}  , xn, xk, 10 {для примера}, Memo1);

  end;

Определитесь, что должна делать подставляемая функция, какое матдействие и результат