diff --git a/components/richmemo/win32/win32richmemo.pas b/components/richmemo/win32/win32richmemo.pas
index 4f85134d1..9f0e0a214 100644
--- a/components/richmemo/win32/win32richmemo.pas
+++ b/components/richmemo/win32/win32richmemo.pas
@@ -167,7 +167,7 @@ const
   POINTS_INCH     = 72;
   TWIP_INCH       = POINTS_INCH * TWIP_PT;
 
-  TAB_LEFT      = 0;  // Ordinary tab
+  {%H-}TAB_LEFT      = 0;  // Ordinary tab
   TAB_CENTER    = 1;  // Center tab
   TAB_RIGHT     = 2;  // Right-aligned tab
   TAB_DECIMAL   = 3;  // Decimal tab
diff --git a/components/richmemo/win32/win32richmemoproc.pas b/components/richmemo/win32/win32richmemoproc.pas
index b3847a8f9..e6854dc4f 100644
--- a/components/richmemo/win32/win32richmemoproc.pas
+++ b/components/richmemo/win32/win32richmemoproc.pas
@@ -819,7 +819,7 @@ class procedure TRichEditManager.GetParaRange(RichEditWnd: Handle; TextStart: in
   var para: TParaRange);
 var
   line: Integer;
-  txtlen: Integer;
+  //txtlen: Integer;
   st: Integer;
   ln: Integer;
   toend: Integer;
@@ -828,7 +828,7 @@ var
   rng : TTEXTRANGEA;
   res : Integer;
 begin
-  txtlen:=GetTextLength(RichEditWnd);
+  //txtlen:=GetTextLength(RichEditWnd);
   // lines are NOT paragraphs, but wordwrapped lines
   line:=SendMessage(RichEditWnd, EM_EXLINEFROMCHAR, 0, TextStart);
   st:=SendMessage(RichEditWnd, EM_LINEINDEX, line, 0);