diff --git a/components/chemtext/source/chemtext.pas b/components/chemtext/source/chemtext.pas
index e57d59df2..593247028 100644
--- a/components/chemtext/source/chemtext.pas
+++ b/components/chemtext/source/chemtext.pas
@@ -18,7 +18,7 @@
 *******************************************************************************)
 
 unit chemtext;
-
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 interface
 
 uses
@@ -140,7 +140,6 @@ type
 
 const
   ARROW_LINE: array[boolean] of char = ('-', '=');
-  SUBFONT_DIVISOR = 100;
 
   ESCAPE_CHAR = '\';
   SAVE_CURRENT_POS = '@';
@@ -234,7 +233,7 @@ var
     );
   var
     i: Integer;
-    s: String;
+    s: String = '';
   begin
     if Arrow in [caASCIISingle, caASCIIDouble] then
     begin