Delphi цифры 100!

[0479]

Доброго времени суток. Если кто то может то помогите пожалуйста с написанием программы.Точнее программа написано, правда где то некорректно срабатывает.Быть может кому то известен более лёгкий алгоритм.Задача в том чтобы нати все цифры числа 100!.Как известно калькулятор не выводит число полностью, а нужна именно полная запись числа.Свои наработки выкладываю.
Прикрепляю проект чтобы удобней было просматривать.

// Ручная функция нахождения суммы
function summ(s_str1,s_str2:string):string;
var summa:string;
x:variant;d,cifra:variant;sch,i:integer;
begin
for i:=0 to Length(s_str1)-1 do
begin
if i= Length(s_str1)-1 then
if Length(s_str1)= Length(s_str2)
then sch:=1
else
begin
sch:=Length(s_str2)-i;
d:=StrToInt(Copy(s_str1,0,1))+StrToInt(Copy(s_str2,0,sch))+x;
summa:=IntToStr(d)+summa;
continue;
end;
d:=StrToInt(Copy(s_str1,Length(s_str1)-i-1,1))+StrToInt(Copy(s_str2,Length(s_str2)-i-1,1))+x;
cifra:=d mod 10;
x:=d/10;
summa:=IntToStr(cifra)+summa;
end;
summ:=summa;
end;


//Функция для умножения
function mnog1(s:string ;i:variant):string;
var
  m, res: string;
  Str: string;
  Pl: string;
  Ost: Integer;
  j: Integer;
begin
  Ost := 0;
  for j:=Length(s) downto 1  do
  begin
    Str := Copy(s,j,1);
    Str := IntToStr(StrToInt(Str) * i+Ost);
    Pl := Str[Length(Str)];
    m := Copy(Str,1,Length(Str)-1);
    if m = '' then
      m := '0';
    Ost := StrToInt(m);
    res := Pl+res;
  end;
  if m = '0' then
    m := '';
  Result := m + res;
end;

//Процедура нахождения факториала
procedure TForm1.Button4Click(Sender: TObject);
var s_str1,s_str2,res,s:string;
i:integer;
begin
s:='99';
for i:=98 downto 2 do
begin
if i<10 then
begin
s:=mnog1(s,i);
continue;
end;
if i mod 10 <> 0 then
begin
s_str1:=mnog1(s,i mod 10);
s_str2:=mnog1(s,i div 10);
res:= summ(s_str1, s_str2 + '0');
end;
if i mod 10=0 then
begin
s_str2:=mnog1(s, i div 10) + '0';
res:=s_str2;
end;
s:=res;
end;
Edit7.Text:=s+'00';
end;

Заранее благодарен.