TTrayIcon组件应用问题

Question

我做系统托盘用了TTrayIcon组件
当有消息来时    TrayIconFlash.Visible := true;
    TrayIconFlash.Animate := true;他的OnAnimate事件如下procedure TMainWin.TrayIconFlashAnimate(Sender: TObject);
var
  flag : boolean;
begin
  flag := true;
  if flag then
  begin
    TrayIconFlash.Visible := true;
    flag := false;
  end
  else
  begin
    TrayIconFlash.Visible := false;
    flag := true;
  end;
end;但是为什么我的系统托盘只是显示了,但他不进入事件方法中