procedure TForm1.N1Click(Sender: TObject);
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RzTray, ImgList, Menus;
type
TForm1 = class(TForm)
RzTrayIcon1: TRzTrayIcon;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
ImageList1: TImageList;
procedure N1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
isclose :boolean; //用于判断是否退出程序
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.N1Click(Sender: TObject);
begin // 右击窗体->退出。 ( PopupMenu1)
isclose := true;
form1.Close;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if isclose then //如果要退出程序，isclose必须为真
begin
action := cafree;
end
else begin
action := canone;
application.Minimize;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
isclose := false; // 将程序退出判断设为false，即不退出程序
end;
end.

你窗体上有一个控件名叫“N1”的菜单项么