delphi最小化系统托盘

如下修改如下代码，在原有最小化系统托盘、点击左键打开的基础上，实在点击右键显示“显示”，“退出”菜单并实在窗口打开和关闭。每次关闭都要自动删除托盘图标。

代码如下：
Delphi(Pascal) code:

unit Unit1;

interface

uses
Windows, Messages, SysUtils,Classes, Graphics, Controls, Forms, Dialogs,ShellAPI,
Menus;

const
WM_BARICON=WM_USER+200;
WM_TRAYNOTIFY=2000;

type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
procedure N2Click(Sender: TObject);
procedure wmTrayNotify(var Msg:TMessage);message WM_TRAYNOTIFY;
procedure N1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
procedure WMBarIcon(var Message:TMessage);message WM_BARICON;
{ Private declarations }
public
{ Public declarations }

end;

var
Form1: TForm1;
Nid:TNotifyIconData;//定义ICON结构

implementation

{$R *.DFM}

procedure TForm1.WMSysCommand(var Message:TMessage);
var
lpData:PNotifyIconData;
begin
if Message.WParam = SC_ICON then
begin
//如果用户最小化窗口则将窗口隐藏并在任务栏上添加图标
lpData := new(PNotifyIconDataA);
lpData.cbSize := 88;
//SizeOf(PNotifyIconDataA);
lpData.