Delphi中消息处理的问题

窗口上，有一按扭，

同时窗口 有鼠标点击事件 按扭也有鼠标点击事件，要怎么样才能使得点按扭时，窗口也能自动的触发点击事件

[解决办法]
button Click的时候
Self.onclick(Self)
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
begin
DoSomeThing;
Self.Click;
end;