请教关于事件的问题？

Question

今天看到一个代码，Tsomain是一个窗体，spider1是线程类实例，spider1Terminate是一个函数procedure Tsomain.ToolButton1Click(Sender: TObject);
var spider1:CSpider;
begin
     spider1:=CSpider.Create(5000);
     spider1.OnTerminate:=spider1Terminate;
end;
请教大家OnTerminate是一个事件吗？可以直接赋一个函数给事件，当此事件发生就执行这个函数吗？如果假如，一个TButton的事件OnClick，是不是也可以Button1.OnClick:=clickmethod;这样写？

Answer 1

procedure clickmethod(snder:TObject);Button1.OnClick:=clickmethod;

Answer 2

研究下函数指针，只要参数相同都可以赋OnTerminate是一个函数指针 属性！