Como obter fatorial de um número

Ex: Fatorial(5) = 120.

function Fatorial(Valor: Integer):LongInt;
begin
{ Verifica se o valor é inválido }
if Valor < 1 then
raise Exception.Create(‘Valor inválido para ser fatorado!’);

if Valor = 1 then
Result := 1
else
{ Chamada recursiva }
Result := Valor * Fatorial(Valor - 1);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
{ Teste o valor }
Edit1.Text := IntToStr(Fatorial(SpinEdit1.Value));
end;