diff --git a/UBinomialCoefficients.pas b/UBinomialCoefficients.pas
index 96b9ff6..71c4780 100644
--- a/UBinomialCoefficients.pas
+++ b/UBinomialCoefficients.pas
@@ -44,6 +44,9 @@ type
     function GetCachedRowsCount: Cardinal;
   end;
 
+var
+  BinomialCoefficients: TBinomialCoefficientCache;
+
 implementation
 
 { TBinomialCoefficientCache }
@@ -92,5 +95,11 @@ begin
   Result := FCache.Count;
 end;
 
+initialization
+  BinomialCoefficients := TBinomialCoefficientCache.Create;
+
+finalization
+  BinomialCoefficients.Free;
+
 end.