[Robert01]

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