Hola
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
Num: extended;
Numt:extended;
begin
Num:=1;
for i:=1 to 1000 do begin
Num:=Num*i;
end;
Edit1.Text:=FloatToStr(num);
end;
El factorial de 1000 es = 4,02387260077094 E2567
Saludos