diff --git a/components/richmemo/win32/win32richmemo.pas b/components/richmemo/win32/win32richmemo.pas
index b7ae56767..ca52a33b0 100644
--- a/components/richmemo/win32/win32richmemo.pas
+++ b/components/richmemo/win32/win32richmemo.pas
@@ -823,6 +823,7 @@ begin
 
   RichEditManager.GetSelection(hnd, ss, sl);
   try
+    RichEditManager.SetSelection(hnd, ATextStart, ATextLength);
     SendMessage(hnd, EM_GETOLEINTERFACE, 0, LPARAM(@rch));
 
     FillChar(Fmt, sizeoF(Fmt), 0);