Сам факторил в Delphi никак не обозначается.
Вот я написал пример вычисления факторила через рекурсию.
Код:
function factorial(n: integer): integer;
begin
if n > 1
then factorial := n * factorial(n-1) // функция вызывает сама себя
else factorial:= 1; // факториал 1 равен 1
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a:integer; // число, факториал которого надо вычислить
f:integer; // значение факториала числа a
begin
k := StrToInt(Edit1.Text);
b:= factorial(a);
label1.caption:='Факториал числа '+Edit1.Text+' равен '+IntToStr(b);
end;
end.