1.安装新组件AppTrayIcon
2.在应用程序的主窗口中分别加入：TrayIcon标签中刚才新安装的组件AppTrayIcon、Standard标签中的ActionList、TPopupMenu
3.双击ActionList，添加新的动作，在对象查看器中，可以修改新动作的属性和事件。
例如：加入一个新动作，属性设置：Name := ActEixt ; Caption := '退出(&X)'; Hint := '退出程序'; 方法设置：双击OnExecute ，添加代码如下：
procedure TForm1.ActEixtExecute(Sender: TObject);
begin
Application.Terminate; //Ends application execution.
end;
用同样的方法可以设置其它的动作，加入一个新动作，属性设置：Name := AcAbout ; Caption := '关于...(&A)'; Hint := '关于程序'; 方法设置：双击OnExecute ，添加代码如下：
procedure TForm1.AcAboutExecute(Sender: TObject);
begin
FrmAbout := TFrmAbout.Create(Self);
FrmAbout.ShowModal;
FrmAbout.Free;
end;
4.双击PopupMenu，添加新的项目，只要在对象查看器的Event标签中选择Action（刚才创建的动作）就可以了。
5.选择组件AppTrayIcon，在对象查看器的Event标签中选择PopupMenu为PopupMenu1；双击OnDbClick，添加代码：
procedure TForm1.AppTrayIcon1DblClick(Sender: TObject);
begin
AppTrayIcon1.RestoreApp;
end;
6.回到主窗口 TForm1，在对象查看器的Event标签中选择OnClose， 双击，添加代码：
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caNone; //caNone是一个枚举值type TCloseAction = (caNone, //caHide, caFree, caMinimize); caNone表示The form is //not allowed to close, so nothing happens.
PostMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;
一定要记得在主窗口的OnCreate事件中加入下面一行代码：
procedure TForm1.FormCreate(Sender: TObject);
begin
AppTrayIcon1.Active := True; //激活组件AppTrayIcon.
end;
