* Fix from bart removing extra constants. Fix issue #39812

packages/rtl-objpas/src/inc/convutil.inc

@@ -140,7 +140,7 @@ Implementation
 uses
   RtlConsts;
 
-const 
+const
   macheps=1E-9;
   zeroRes=1E-17;
 
@@ -465,10 +465,6 @@ begin
            (ConvTypeToFamily(AFrom)=ConvTypeToFamily(ATo));
 end;
 
-Const
-   SConvTooManyConvFamilies = '  SConvTooManyConvFamilies %d';
-                               SConvTooManyConvTypes = 'SConvTooManyConvTypes %d';
-
 Function RegisterConversionFamily(Const S:String):TConvFamily;
 
 var len : Longint;