Fakultät und Exeption

[h4nnes_]

Hi Leute... Leider komme ich gar nicht damit zusammen, ausgeben pack ich nicht und an den Funktionen happats glaub ich auch.. Ich bitte um ein paar Tipps, Quellcode unten.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    E1: TEdit;
    Panel1: TPanel;
    RB1: TRadioButton;
    RB2: TRadioButton;
    RB3: TRadioButton;
    B1: TButton;
    B2: TButton;
    RE1: TRichEdit;
    procedure B2Click(Sender: TObject);
    procedure B1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function nfak (x:integer):Extended;
var i:byte;

begin
   for i:=1 to x do begin
       nfak:=x+1;
   end;
end;

function einsfak (y:integer):Extended;
var h:byte;

begin
   for h:=1 to y do begin
       einsfak:=(y+1)/y;
   end;
end;


procedure TForm1.B2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.B1Click(Sender: TObject);
begin
  if RB1.Checked then begin
    RE1.Text:=nfak(IntToStr(E1.text));

  end;
end;

end.

und bitte nicht auslachen... mfg :/