Не верно считает

unit Unit1;
 
interface
 
uses
  Windows, Messages,Math, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;
 
type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 function fak(n:Integer):Integer;
    var
      i:integer;
      f:Integer;
 
    begin
      f:=1;
      for i:=1 to n do f:=f*i;
      fak:=f;
    end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i:Integer;
  sum:double;
  a:Real;
begin
  strngrd1.cells[0,0]:='№ Шага';
  strngrd1.cells[1,0]:='Значение элемента';
  strngrd1.cells[2,0]:='Сумма элементов' ;
  sum:=0;
  for i:=1 to 12 do
  begin
    a:=fak(i)/(power(i,Sqr(i)));
     ShowMessage(floatToStr(fak(i)));
    ShowMessage(floatToStr(power(i,Sqr(i))));
    sum:=sum+a;
    strngrd1.Cells[0,i]:=intToStr(i);
    strngrd1.Cells[1,i]:=FloatToStr(a);
    strngrd1.Cells[2,i]:=FloatToStr(sum);
  end;
 
end;
end.

a:=fak(i)/(power(i,Sqr(i)));

a:=fak(i)/(Exp(Sqr(i)*Ln(i)));