Program Menghitung NIlai Faktorial Pada Delphi

Pada postingan kali ini, saya akan memberikan kunci utama keberhasilan membuat program menghitung nilai faktorial pada delphi. Intinya sich, mau seperti apapun desain programnya yang jelas pada BUTTON yang akan digunakan untuk MENGHITUNG HASILNYA harus diberikan perintah seperti dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);
var
n : integer;
i : integer;
f : integer;

begin
if trystrtoint(Edit1.Text,n)=false then
begin
showmessage('salah memasukan , ulangi!!!');
exit;
end;

f := 1;
for i:=1 to n do
f := f * i;

Edit2.Text:= inttostr(f);

Dimana Edit1.Text adalah tempat untuk memasukkan nilai yang akan dihitung nilai faktorialnya atau n! , sedangkan Edit2.Text adalah tempat untuk memberikan hasil dari faktorial (n!).