diff --git a/components/richmemo/richmemo.pas b/components/richmemo/richmemo.pas
index 0aafc0dbb..225a7a393 100644
--- a/components/richmemo/richmemo.pas
+++ b/components/richmemo/richmemo.pas
@@ -444,6 +444,7 @@ procedure TCustomRichMemo.SetTextAttributes(TextStart, TextLen: Integer;
 var
   params  : TFontParams;
 begin
+  InitFontParams(params);
   params.Name := AFont.Name;
   params.Color := AFont.Color;
   params.Size := AFont.Size;