Fakultät und Exeption

[h4nnes_]

Also mit der Funktion komme ich nun klar...

Jedoch da ich noch nie so ein und ausgegeben habe da ein fettes Problem.

!! Wie bzw. Wo schreibe ich die Eingabe ins EditFeld E1? !!
!! Wo bzw. Wie gebe ich dann das Ergebnis aus? In welcher Procedure? !!

Delphi-Quellcode:

function nfak (n:integer):integer;
var fak:longint;
var i:byte;
begin

fak:=1;
   for i:=1 to n do begin
       fak:=fak*i;
   end;
nfak:=fak;
end;

procedure TForm1.B1Click(Sender: TObject);
begin
  if RB1.Checked then begin
?????????
?????????

  end;
end;

Ich hab alles mögliche probiert, immer regt sich Mr. Compiler auf...


Danke im Voraus

Mlg


EDIT: Vor allem wie gebe ich ein RichEdit (in meinem Fall RE1) aus? Mit Lines [x] oder mit .text?