проблеммы с формулой

[Varv]

нужно забить формулу, вот что я написал но не работает,точнее работает но считает не правильно!!! хелп ми

var
Form1: TForm1;
x,i,N,j: Integer;
A,chisl,chisl2,factorial,factorial2 ,znam,znam2,B: Real;
implementation
{$R *.dfm}
procedure TForm1.PoschitatClick(Sender: TObject);

begin
A:=StrToFloat(Edt1.Text);
N:=StrToInt(Edt2.Text);
chisl:=Power(A,N);
begin

if N = 1 then
factorial:= 1
else begin
factorial := 1;
for i := 1 to N do factorial := factorial * i;
end;
end;
chisl2:=chisl/factorial;

znam := 1;
for x:=0 to N-1 do begin


factorial2:=1;
for j := 1 to x do begin factorial2 := factorial2 * j;
end;
znam:=znam+Power(A,x)/factorial2;
end;

B:= chisl2/znam;
lbl1.Caption:=FloatToStr(B);
end;


end.

[SNUPY]

Люди научитесь делать отсутупы!:

var
  Form1: TForm1;
  x,i,N,j: Integer;
  A,chisl,chisl2,factorial,factorial2 ,znam,znam2,B: Real;

implementation
{$R *.dfm}
procedure TForm1.PoschitatClick(Sender: TObject);

begin
  A:=StrToFloat(Edt1.Text);
  N:=StrToInt(Edt2.Text);

  if N<0 then
    Exit;

  chisl:=Power(A,N);

  factorial := 1;

  for i := 2 to N do
    factorial := factorial * i;


  chisl2:=chisl/factorial;

  znam := 1;

  for x:=1 to N do
  begin
    factorial2:=1;
    for j := 2 to x do
    begin
      factorial2 := factorial2 * j;
    end;
    znam:=znam+Power(A,x)/factorial2;
  end;

  B:= chisl2/znam;
  lbl1.Caption:=FloatToStr(B);
end;


end.

ЗЫ

точнее работает но считает не правильно

Нет всетаки точнее не работает.