diff --git a/components/richmemo/win32/win32richmemo.pas b/components/richmemo/win32/win32richmemo.pas
index 8044dfc82..9621466f4 100644
--- a/components/richmemo/win32/win32richmemo.pas
+++ b/components/richmemo/win32/win32richmemo.pas
@@ -1291,6 +1291,7 @@ begin
   Handled:=(GetWindowLong(AWindow, GWL_EXSTYLE) and WS_EX_CLIENTEDGE <> 0) and (ThemeServices.ThemesEnabled);
   if Handled then begin
     // Paint into this DC
+    WindowProc(AWindow, WM_NCPAINT, WParam, LParam);
     ThemeServices.PaintBorder(RichMemo, True);
     Result := 0;
   end;