some more refactoring.

CryptoLib/src/Math/EC/ClpScaleXPointMap.pas

@@ -33,6 +33,7 @@ type
 
   public
     constructor Create(const scale: IECFieldElement);
+    destructor Destroy(); override;
     function Map(const p: IECPoint): IECPoint; virtual;
   end;
 
@@ -45,6 +46,11 @@ begin
   Fscale := scale;
 end;
 
+destructor TScaleXPointMap.Destroy;
+begin
+  inherited Destroy;
+end;
+
 function TScaleXPointMap.Map(const p: IECPoint): IECPoint;
 begin
   Result := p.ScaleX(Fscale);

CryptoLib/src/Math/EC/Multiplier/ClpAbstractECMultiplier.pas

@@ -37,6 +37,8 @@ type
 
   public
 
+    constructor Create();
+    destructor Destroy; override;
     function Multiply(const p: IECPoint; const k: TBigInteger)
       : IECPoint; virtual;
 
@@ -46,6 +48,16 @@ implementation
 
 { TAbstractECMultiplier }
 
+constructor TAbstractECMultiplier.Create;
+begin
+  Inherited Create();
+end;
+
+destructor TAbstractECMultiplier.Destroy;
+begin
+  inherited Destroy;
+end;
+
 function TAbstractECMultiplier.Multiply(const p: IECPoint; const k: TBigInteger)
   : IECPoint;
 var

CryptoLib/src/Math/EC/Multiplier/ClpWNafL2RMultiplier.pas

@@ -64,12 +64,27 @@ type
     /// </returns>
     function GetWindowSize(bits: Int32): Int32; virtual;
 
+  public
+
+    constructor Create();
+    destructor Destroy; override;
+
   end;
 
 implementation
 
 { TWNafL2RMultiplier }
 
+constructor TWNafL2RMultiplier.Create;
+begin
+  Inherited Create();
+end;
+
+destructor TWNafL2RMultiplier.Destroy;
+begin
+  inherited Destroy;
+end;
+
 function TWNafL2RMultiplier.GetWindowSize(bits: Int32): Int32;
 begin
   Result := TWNafUtilities.GetWindowSize(bits);
@@ -167,6 +182,7 @@ begin
   end;
 
   Result := R;
+
 end;
 
 end.