如何从当前聚焦的组件中移除焦点？

我有一个数据库组件，当它收到 CM_EXIT 消息时会调用 DataLink.UpdateRecord 。当失去焦点时发送此消息。当我单击发布按钮时，它不会失去焦点，并且值不会写入数据源。如何在不切换到其他组件的情况下达到组件失去焦点的效果？

你可以使用：

procedure TCustomForm.DefocusControl(Control: TWinControl; Removing: Boolean);