minor changes.

CryptoLib/src/Asn1/ClpDerObjectIdentifier.pas

@@ -210,7 +210,6 @@ begin
   stemId := stem.ID;
   result := (System.Length(LocalId) > System.Length(stemId)) and
     (LocalId[System.Length(stemId) + 1] = '.') and
-  // should use "StartsStr" here but it seems that is missing in Lazarus/FPC RTL
     (AnsiStartsStr(stemId, LocalId));
 end;
 

CryptoLib/src/Crypto/Signers/ClpECDsaSigner.pas

@@ -55,6 +55,7 @@ type
   TECDsaSigner = class(TInterfacedObject, IDsa, IECDsaSigner)
 
   strict private
+
     class var
 
       FEight: TBigInteger;
@@ -64,6 +65,8 @@ type
 
     class property Eight: TBigInteger read GetEight;
 
+    function GetAlgorithmName: String; virtual;
+
   strict protected
   var
     FkCalculator: IDsaKCalculator;
@@ -97,7 +100,6 @@ type
     /// </param>
     constructor Create(const kCalculator: IDsaKCalculator); overload;
 
-    function GetAlgorithmName: String; virtual;
     property AlgorithmName: String read GetAlgorithmName;
 
     procedure Init(forSigning: Boolean; parameters: ICipherParameters); virtual;

CryptoLib/src/Security/ClpSecureRandom.pas

@@ -346,7 +346,7 @@ begin
   LowPoint := 1;
   HighPoint := System.length(upper);
 {$ENDIF DELPHIXE3_UP}
-  // should use "EndsStr" here but it seems that is missing in Lazarus/FPC RTL
+
   if AnsiEndsStr('PRNG', upper) then
   begin
     digestName := System.Copy(upper, LowPoint,