Function mit Procedure verbinden

[Naibaf]

Hi, ich bin neu im Forum und habe eine Frage
wie verknüpfe ich diese Funktion mit meiner Procedure von Button 1?
ich hab folgende Ausgangslage:
das Programm soll die Fakultät der im eingegebenen Editfeld1 berechnen und mit dem Klick auf Button1 im Editfeld2 ausgeben.
hier die Funktion:

Delphi-Quellcode:

Function fak(s:string):string;
var f,f2:integer;
  f1:extended;
begin
  F:=0;
  f1:=round(strtofloat(s));
  f2:=1;
repeat begin
  f:=f+1;
  F2:=f2*f;
end; until f1=f;
  result:=inttostr(f2);
end;

Wäre schön wenn ihr mir helfen könntet und ein bisschen erklärt, denn ich kenn mich noch nicht so gut aus.

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]