请问如何写动态创建的菜单项的click事件

[chinaway]

各位好，请问如何写动态创建的菜单项的click事件，比如Menu1，我动态创建了新的菜单项N1，然后当点击N1的时候如何写程序，以实现需要的功能，比如点击N1后，showMessage('N1');
请各位帮忙！谢谢！

[huojiehai]

private
{ Private declarations }
procedure gfgfg1Click(Sender: TObject);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);
begin
N1.OnClick := gfgfg1Click;
end;

procedure TForm1.gfgfg1Click(Sender: TObject);
begin
showMessage(TMenuItem(Sender).Caption);
end;

[huojiehai]

老兄，结贴吧，我的分太少了！

[dickeybird888]

其实动态控件的事件的思路都是一样的思路如下：
unit Unit1;

interface

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

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure Button2Click(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
Button2 : TButton;
begin
Button2 := TButton.Create(Self);
Button2.Parent := Form1;
Button2.OnClick :=Button2Click;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('1');
end;


end.

[IORILI]

同意二位，楼主给点分@_@