diff --git a/components/richmemo/win32/win32richmemoproc.pas b/components/richmemo/win32/win32richmemoproc.pas
index 4b869015d..2cf9dc93c 100644
--- a/components/richmemo/win32/win32richmemoproc.pas
+++ b/components/richmemo/win32/win32richmemoproc.pas
@@ -1062,7 +1062,7 @@ begin
     try
       l := LinkNotify.chrg.cpMax - LinkNotify.chrg.cpMin;
       SetSelection(RichEditWnd, LinkNotify.chrg.cpMin, l);
-      st := TStringStream.Create;
+      st := TStringStream.Create('');
       hp := '';
       try
         SaveRichText(RichEditWnd, st, SFF_SELECTION);