unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls; type TMainForm = class(TForm) MainMenu1: TMainMenu; Button1: TButton; N0000000001: TMenuItem; RichEdit1: TRichEd…