diff --git a/components/richmemo/richmemofactory.pas b/components/richmemo/richmemofactory.pas
index 4b965c1a4..8b622fa11 100644
--- a/components/richmemo/richmemofactory.pas
+++ b/components/richmemo/richmemofactory.pas
@@ -24,16 +24,12 @@ implementation
 {$ifdef LCLGtk2}{$undef NoRichMemo}{$endif}
 
 function RegisterCustomRichMemo: Boolean; alias : 'WSRegisterCustomRichMemo';
-var
-  cls : TWSLCLComponentClass;
 begin
   Result := True;
   {$ifdef LCLWin32}RegisterWSComponent(TCustomRichMemo, TWin32WSCustomRichMemo);{$endif}
   {$ifdef LCLCarbon}RegisterWSComponent(TCustomRichMemo, TCarbonWSCustomRichMemo);{$endif}
   {$ifdef LCLGtk2}RegisterWSComponent(TCustomRichMemo, TGtk2WSCustomRichMemo);{$endif}
   {$ifdef NoRichMemo}RegisterWSComponent(TCustomRichMemo, TWSCustomRichMemo);{$endif}
-  cls:=FindWSComponentClass(TCustomRichMemo);
-  if not Assigned(cls) then RegisterWSComponent(TCustomRichMemo, TWSCustomRichMemo);
 end;