怎样才能是MenuItem的OnClick事件能感应到自己写的函数？

Question

TForm1中有一个菜单， 然后我自己加了一个ItemClick函数。我想让菜单中的某几个MenuItem被按下的时候都能执行ItemClick函数。//我想要的功能可是我打开它们(MenuItem）的event-->OnClick的下拉菜单，却找不到ItemClick函数，
不知道是怎么回事，是不是某个设置没有设对？？谢谢！

Answer 1

//////////////////////////////////////////////////////////////////////
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    procedure ItemClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
..........
implementation{$R *.dfm}procedure TForm1.ItemClick(Sender: TObject);
begin
  //
end;end.

Answer 2

我知道了，要把ItemClick写到Published里才可以。非常感谢兴哥！