Added Create(NumBits, TRandom32Proc). No need for an IRandom, or Velthuis.RandomNumbers.

Author: rvelthuis

Source/Velthuis.BigIntegers.pas

@@ -3164,7 +3164,7 @@ constructor BigInteger.Create(NumBits: Integer; Random: TRandom32Proc);
   end;
 
   FSize := (NumBits + CLimbBits - 1) div CLimbBits;
-  SetLength(FData, (FSize + CLimbSize - 1) div CLimbSize);
+  SetLength(FData, (4 * FSize + 3) div 4);
   for I := 0 to FSize - 1 do
     FData[I] := Random();