unit SampleDockingRichText; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TSampleDockingRichTextFrame = class(TForm) RichEdit1: TRichEdit; private { Private declarations } public { Public declarations } end; implementation {$R *.dfm} end.