Problema con tipo de dato

[The_Duke]

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

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;