diff --git a/components/chemtext/source/chemtext.pas b/components/chemtext/source/chemtext.pas
index ffae3faf4..624f0a756 100644
--- a/components/chemtext/source/chemtext.pas
+++ b/components/chemtext/source/chemtext.pas
@@ -27,7 +27,7 @@ uses
 const
   DEFAULT_SMALLFONT_SIZE = 67;
   DEFAULT_SUBSCRIPT_OFFSET = 50;
-  DEFAULT_SUPERSCRIPT_OFFSET = 25;
+  DEFAULT_SUPERSCRIPT_OFFSET = 12;
 
 var
   SmallFontSizePercent: Integer = DEFAULT_SMALLFONT_SIZE;
@@ -207,7 +207,7 @@ var
       ACanvas.Font.Height := MulDiv(h, SmallFontSizePercent, 100);
       yoff := abs(MulDiv(h, SuperscriptFontOffsetPercent, 100));
       if not Measure then
-        ACanvas.TextOut(x, y - yoff div 2, s);
+        ACanvas.TextOut(x, y - yoff, s);
       inc(x, ACanvas.TextWidth(s));
     finally
       ACanvas.Font.Height := h;