如何判断一按钮或其他按件的单击事件是否存在？

Question

如题：

Answer 1

.onclick=nil
试过了，不行的

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
    ne: TNotifyEvent;
begin
    ne := Button2.OnClick;
    if Integer(@ne) = 0 then
        ShowMessage('Button2不存在OnClick事件.')
    else
        ShowMessage('Button2存在OnClick事件.');end;

Answer 3

if Assigned(button.click) then
beginend;

Answer 4

不好意思是onclick
if Assigned(button.onclick) then
beginend;

Answer 5

.onclick=nil
试过了，不行的那是什么？说出来看下啊。