delphi TrayIcon组件 Win10如何显示托盘通知

有人问：如何实现如下效果

实现很简单放一个系统的组件TTrayIcon：

然后编写如下代码即可弹出通知：

procedure TfrmServerMain.ShowTip(AMessage: string; ATitle: string);
begin
 TrayIcon1.BalloonTitle := ATitle;
 TrayIcon1.BalloonHint := AMessage;
 TrayIcon1.ShowBalloonHint;
end;