diff --git a/components/richmemo/win32/win32richmemoproc.pas b/components/richmemo/win32/win32richmemoproc.pas
index 5609ff0ae..416569aaa 100644
--- a/components/richmemo/win32/win32richmemoproc.pas
+++ b/components/richmemo/win32/win32richmemoproc.pas
@@ -324,7 +324,7 @@ end;
 function EffectsToVScriptPost(Effects: LongWord): TVScriptPos;
 begin
   if Effects and CFE_SUBSCRIPT > 0 then Result:=vpSubScript
-  else if Effects and CFE_SUBSCRIPT > 0 then Result:=vpSuperScript
+  else if Effects and CFE_SUPERSCRIPT > 0 then Result:=vpSuperScript
   else Result:=vpNormal;
 end;