Переполнение стека. Модуль

unit Matfu;
 
interface
Function sin(x:extended) : extended;
Function ch(x:extended) : extended;
Function exp(x:extended) : extended;
implementation
Function sin;
begin
Result:=sin(x);
end;
 
Function ch;
begin
Result:=(exp(x)+exp(-x))/2;
end;
 
Function exp;
begin
Result:=exp(x*cos(pi/4))*cos(x*sin(pi/4));
end;
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, Matfu;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    BitBtn1: TBitBtn;
    RadioGroup1: TRadioGroup;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
Type
fun = function(x:extended):extended; // Объявление типа функция
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='0';
Edit2.Text:='3';
Edit3.Text:='0,3';
Memo1.Clear;
RadioGroup1.ItemIndex:=0;
end;
 
procedure Tabl(f:fun;xn,xk,h:extended); // Расчет таблицы
var x,y: extended;
begin
x:=xn;
repeat
y:=f(x);
Form1.Memo1.Lines.Add('x='+FloatToStrf(x,fffixed,8,3)+
' y='+FloatToStrf(y,fffixed,8,3));
x:=x+h;
until (x>xk);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var xn,xk,h : extended;
begin
xn:=StrToFloat(Edit1.Text); // Начальное значение интервала
xk:=StrToFloat(Edit2.Text); // Конечное значение интервала
h:=StrToFloat(Edit3.Text); // Шаг расчета
case RadioGroup1.ItemIndex of // Выбор функции
0 : Tabl(sin,xn,xk,h);
1 : Tabl(ch,xn,xk,h);
2 : Tabl(exp,xn,xk,h);
end;
end;
end.