Foros Club Delphi - Problema con tipo de dato

hola, necesito saber que tipo de dato numérico es el que soporta mas caracteres ya que tengo que hacer un programa que calcule el factorial de 100,000 y el tipo Extended solo llega hasta 1554 lo tengo hecho de esta manera. le adjunto el proyecto

Código:

function factorial(a:Extended):Extended;

begin

  if (a=0) or (a=1) then

    factorial:=1

  Else

    factorial:=a*factorial(a-1);

end;



procedure TForm1.BitBtn1Click(Sender: TObject);

var

no1:Extended;

begin

if Edit1.Text='' then

begin

showmessage('Instrodusca un numero');

Edit1.SetFocus;

exit;

end;

no1:=strtofloat(Edit1.Text);

Edit2.Text:=floattostr(Factorial(no1));

end;