当前控件OnExit事件调用SetFocus时，为什么没有触发按钮OnClick事件？

Question

在新表单上放置3个编辑和1个按钮并附加这些处理程序：

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Button clicked');
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Edit3.SetFocus;
end;

当Edit1具有焦点并且单击Button1时，不会触发Button1Click事件。

为什么会这样，是否有解决方法？