manually called static constructor

CryptoLib/src/Security/ClpSecureRandom.pas

@@ -32,6 +32,7 @@ uses
   ClpIDigest,
   ClpIRandomGenerator,
   ClpRandom,
+  ClpOSRandom,
   ClpDigestUtilities,
   ClpCryptoApiRandomGenerator,
   ClpICryptoApiRandomGenerator,
@@ -324,6 +325,7 @@ begin
     Fmaster := TSecureRandom.Create(TCryptoApiRandomGenerator.Create()
       as ICryptoApiRandomGenerator);
     FDoubleScale := Power(2.0, 64.0);
+    TOSRandom.Boot;
   end;
 end;
 

CryptoLib/src/Utils/Randoms/ClpOSRandom.pas

@@ -317,11 +317,10 @@ type
       : Int32; static;
 {$ENDIF}
     // ================================================================//
-
-    class procedure Boot(); static;
     class constructor OSRandom();
 
   public
+    class procedure Boot(); static;
     class procedure GetBytes(const data: TCryptoLibByteArray); static;
     class procedure GetNonZeroBytes(const data: TCryptoLibByteArray); static;