diff --git a/components/richmemo/richmemopackage.pas b/components/richmemo/richmemopackage.pas
index b15332681..3d0014581 100644
--- a/components/richmemo/richmemopackage.pas
+++ b/components/richmemo/richmemopackage.pas
@@ -4,6 +4,7 @@
 
 unit richmemopackage;
 
+{$warn 5023 off : no warning about unused units}
 interface
 
 uses
diff --git a/components/richmemo/richmemortf.pas b/components/richmemo/richmemortf.pas
index d3c8339dc..68d71bef6 100644
--- a/components/richmemo/richmemortf.pas
+++ b/components/richmemo/richmemortf.pas
@@ -32,6 +32,7 @@ function SaveStream(ARich: TCustomRichMemo; Dst: TStream): Boolean;
 procedure RegisterRTFSaver;
 
 implementation
+uses LazUTF8;
 
 var
   LangConvTable : array of record lang: integer; proc: TEncConvProc end;