Установить, равняется ли натуральное число сумме факториалов его цифр

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TFactorial = class(TForm)
    obrab: TButton;
    rez: TEdit;
    fact: TEdit;
    procedure factChange(Sender: TObject);
    procedure rezChange(Sender: TObject);
    procedure obrabClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Factorial: TFactorial;
 
implementation
 
{$R *.dfm}
 
procedure TFactorial.factChange(Sender: TObject);
var
fact,n:integer;
 
begin
if n=1 then
  fact:=1
else
  fact:=fact*(n-1)*n;
end;
 
procedure TFactorial.rezChange(Sender: TObject);
var sum,x:integer;
begin
writeln('Sum ',sum,'  Num ',x);
readln;
end;
 
procedure TFactorial.obrabClick(Sender: TObject);
{$APPTYPE CONSOLE}
const
  fact:  array[0..9] of Cardinal=(1,1,2,6,24,120,720,5040,40320,362880);
var
  x,sum: Cardinal;
begin
  write('enter the number: ');
  readln(x);
  sum:=0;
  repeat
    inc(sum,fact[x mod 10]);
    x:=x div 10;
  until x=0;
  writeln('summ=',sum);
  readln;
end;
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    function fact(n: integer): integer;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function TForm1.fact(n: integer): integer;
begin
     if (n = 1) or (n = 0) then
       fact := 1
     else
       fact := n * fact(n - 1);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
   i, S: integer;
   str: String;
begin
     S := 0;
     str := Edit1.Text;
     for i := 1 to Length(str) do
       S := S + fact(StrToInt(str[i]));
     if (S = StrToInt(Edit1.Text)) then
       Label1.Caption := 'Дорівнює'
     else
       Label1.Caption := 'Не дорівнює'
end;
 
end.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if Not (Key in ['0'..'9']) then Key:=#0;
end;

function TForm1.fact(n: integer): integer;
begin
     if (n = 1) or (n = 0) then
       fact := 1
     else
       fact := n * fact(n - 1);
end;

function TForm1.fact(n: integer): integer;
var
   f: integer;
begin
     f := 1;
     if (n > 1) then
       begin
         while (n > 0) do
           begin
             f := f * n;
             n := n - 1;
           end;
       end;
     fact := f;
end;