unit RichEdit41;

interface

uses
  Winapi.Windows,
  Vcl.ComCtrls, Vcl.Controls;

const
  RICHEDIT_V41_CLASSNAME = 'RICHEDIT50W';
  RICHEDIT_V41_MODULENAME = 'MSFTEDIT.DLL';

type
  [RootDesignerSerializerAttribute('', '', False)]
  [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
  TRichEdit41 = class(TRichEdit)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure Register;

implementation

uses
  System.Classes;

var
  FRichEdit41LabHandle: HMODULE;

{ TRichEdit41 }

procedure TRichEdit41.CreateParams(var Params: TCreateParams);
begin
  inherited;
  CreateSubClass(Params, RICHEDIT_V41_CLASSNAME);
end;

procedure Register;
begin
  RegisterComponents('Others', [TRichEdit41]);
end;

initialization
begin
  FRichEdit41LabHandle := LoadLibrary(RICHEDIT_V41_MODULENAME);
end;

finalization
begin
  FreeLibrary(FRichEdit41LabHandle);
end;

end.