高手请进！

procedure TMainfrm.WMSysCommand
  (var Message: TMessage);
begin
  if Message.WParam = SC_ICON then
  begin
    AddIcon();
    mainfrm.Visible := False;
  end
  else
  begin
     //如果是其它的SystemCommand消息则调用系统缺省处理函数处理之。
    DefWindowProc(mainfrm.Handle, Message.
      Msg, Message.WParam, Message.LParam);
  end;
//
end;
procedure AddIcon();
var
  lpData: PNotifyIconData;
begin     //如果用户最小化窗口则将窗口隐藏并在任务栏上添加图标
  lpData := new(PNotifyIconDataA);
  lpData.cbSize := 88;
  lpData.Wnd := mainfrm.Handle;
  lpData.hIcon := application.Icon.Handle;
  lpData.uCallbackMessage := WM_BARICON;
  lpData.uID := 0;
  lpData.szTip := '数据监测';
  lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  Shell_NotifyIcon(NIM_ADD, lpData);
  dispose(lpData);
end;