这两张是系统自带计算器的‘帮助'和‘关于’窗口，如果用delphi写分别要用到那些组件’

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, StrUtils, Menus;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Button19: TButton;
RichEdit1: TRichEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N22: TMenuItem;
N24: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure clearstr_0(); // 清除第一位的0
procedure count( n_1 : Integer ); //计算
procedure getstr(n_1 : integer); // 提取数值并记录运算符
procedure judge_m_1(); //判断m中的运算符
procedure judge_m_2(); //如果m中存在运算符，就显示在运算结果的后面
procedure initialize(); //初始化
procedure show_str(n_1 : integer); //显示计算的字符
procedure Button11Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure RichEdit1Change(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
dou_1 : double; //第一个运算数字
dou_2 : double; //第二个运算数字
dou_3 : double; //运算结果
n : integer; //运算标志 1 = '+' , 2 = '-' , 3 = 'x' , 4 = '/' ，5 = '='
m : integer; //下一个运算标志 1 = '+' , 2 = '-' , 3 = 'x' , 4 = '/'
div_err : integer; //除数为0时报错

新手用了两三天时间写的一个计算器，求大神们指点下，组件及算法有无用的不当之处。
谢谢！！

计算器选项菜单中有界面设置和输入文本的字体和颜色设置
帮助菜单中有帮助信息和关于计算器两个子菜单对应两个小窗口

如果你想知道一个程序确切的用了什么”控件“
可以使用 spy++ 这个软件进行查看