fix some ec related bugs

CryptoLib/src/Math/EC/Custom/Sec/ClpSecP256K1Custom.pas

@@ -175,7 +175,7 @@ type
   class procedure Boot; static;
   class constructor Create;
   var
-    FInfinity: TSecP256K1Point;
+    FInfinity: ISecP256K1Point;
   strict protected
     function GetQ: TBigInteger;
   public
@@ -335,7 +335,7 @@ class procedure TSecP256K1Field.RandomMult(const AR: ISecureRandom; const AZ: TC
 begin
   repeat
     Random(AR, AZ);
-  until IsZero(AZ) <> 0;
+  until IsZero(AZ) = 0;
 end;
 
 class procedure TSecP256K1Field.Reduce(const AXX, AZ: TCryptoLibUInt32Array);

CryptoLib/src/Math/EC/Custom/Sec/ClpSecP256R1Custom.pas

@@ -176,7 +176,7 @@ type
   class procedure Boot; static;
   class constructor Create;
   var
-    FInfinity: TSecP256R1Point;
+    FInfinity: ISecP256R1Point;
   strict protected
     function GetQ: TBigInteger;
   public
@@ -402,7 +402,7 @@ class procedure TSecP256R1Field.RandomMult(const AR: ISecureRandom; const AZ: TC
 begin
   repeat
     Random(AR, AZ);
-  until IsZero(AZ) <> 0;
+  until IsZero(AZ) = 0;
 end;
 
 class procedure TSecP256R1Field.Reduce(const AXX, AZ: TCryptoLibUInt32Array);

CryptoLib/src/Math/EC/Custom/Sec/ClpSecP384R1Custom.pas

@@ -175,7 +175,7 @@ type
   class procedure Boot; static;
   class constructor Create;
   var
-    FInfinity: TSecP384R1Point;
+    FInfinity: ISecP384R1Point;
   strict protected
     function GetQ: TBigInteger;
   public
@@ -379,7 +379,7 @@ class procedure TSecP384R1Field.RandomMult(const AR: ISecureRandom; const AZ: TC
 begin
   repeat
     Random(AR, AZ);
-  until IsZero(AZ) <> 0;
+  until IsZero(AZ) = 0;
 end;
 
 class procedure TSecP384R1Field.Reduce(const AXX, AZ: TCryptoLibUInt32Array);

CryptoLib/src/Math/EC/Custom/Sec/ClpSecP521R1Custom.pas

@@ -172,7 +172,7 @@ type
   class procedure Boot; static;
   class constructor Create;
   var
-    FInfinity: TSecP521R1Point;
+    FInfinity: ISecP521R1Point;
   strict protected
     function GetQ: TBigInteger;
   public
@@ -333,7 +333,7 @@ class procedure TSecP521R1Field.RandomMult(const AR: ISecureRandom; const AZ: TC
 begin
   repeat
     Random(AR, AZ);
-  until IsZero(AZ) <> 0;
+  until IsZero(AZ) = 0;
 end;
 
 class procedure TSecP521R1Field.Reduce(const AXX, AZ: TCryptoLibUInt32Array);

CryptoLib/src/Math/EC/Custom/Sec/ClpSecT283K1Custom.pas

@@ -180,7 +180,7 @@ type
   class procedure Boot; static;
   class constructor Create;
   var
-    FInfinity: TSecT283K1Point;
+    FInfinity: ISecT283K1Point;
   strict protected
     function GetIsKoblitz: Boolean; override;
     function CreateDefaultMultiplier: IECMultiplier; override;

CryptoLib/src/Math/EC/Endo/ClpEndoUtilities.pas

@@ -77,7 +77,7 @@ end;
 function TEndoUtilities.TMapPointCallback.Precompute(const AExisting: IPreCompInfo): IPreCompInfo;
 var
   LExistingEndo: IEndoPreCompInfo;
-  LResult: TEndoPreCompInfo;
+  LResult: IEndoPreCompInfo;
 begin
   if Supports(AExisting, IEndoPreCompInfo, LExistingEndo) and
     CheckExisting(LExistingEndo, FEndomorphism) then