请大侠们帮着看年下面的代友错误在哪里？

Question

在Form2已经定义
procedure TForm2.showmessage1(Send:TObject);在Form1中的ActionList定义Action
procedure TForm1.F1ClickExecute(Sender: TObject);
begin
  Form1.ToolButton1.OnClick():=TForm2.showmessage1(Sender);
end;

Answer 1

编译 Form1.ToolButton1.OnClick():=TForm2.showmessage1(Sender);时报错

Answer 2

错误信息是什么，是不是没有引用form2?
是不是用form1.toolbutton1.click:=tform2.showmessage;?

Answer 3

不要写括号，不要写参数。
Form1.ToolButton1.OnClick:=TForm2.showmessage1

Answer 4

Form1.ToolButton1.OnClick():=TForm2.showmessage1

Answer 5

原来的错误将Form2申明中的procedure TForm2.showmessage1(Send:TObject);
改为 Function showmessage1():TNotifyEvent; 即可编译成功，但在程序的执行时
  单击ToolButton1并不执行,showmessage1这个过程

Answer 6

Form1.ToolButton1.OnClick:=TForm2.showmessage1;

Answer 7

在Delphi里，必须显式创建和显式销毁。

Answer 8

Form1.ToolButton1.OnClick():=TForm2.showmessage1(Sender);
                             ^
                           不要打T