From 9238e84017e163b6371bd5eee83752250e5af8da Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 20 May 2010 10:28:35 +0000
Subject: [PATCH] richmemo: cleanup registering richmemo class

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1227 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/richmemo/richmemofactory.pas | 4 ----
 1 file changed, 4 deletions(-)

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;