请问各位高手：怎样在程序中动态的生成子菜单，100分相送(100分)

unit Unit1;

interface

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

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
file1: TMenuItem;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure MyPopupHandler(Sender: TObject);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.MyPopupHandler(Sender: TObject);
begin
ShowMessage('hello');
end;

procedure TForm1.FormCreate(Sender: TObject);
var NewItem: TMenuItem;
begin

NewItem := TMenuItem.Create(Self);
NewItem.Caption :='new menu';
//file1是MainMenu的一级子菜单
file1.Add(NewItem);
newitem.OnClick:=MyPopupHandler;

end;

end.

接受答案了