TTrayNotifyIcon怎么得到﹐如何使用呢﹗

////////////////////////////////////////////////////////////////////////
系统托盘。
/////////////////////////////////////////////////////////////////////////{点击了任务栏的图标}
procedure TMainForm.WMTrayMessage(var msg:TMessage);
var
  p:TPoint;
begin
  if msg.LParam=WM_LButtonDown then
  begin
    ShowWindow(Application.Handle,SW_Show);
    Application.Restore;
  end
  else if msg.LParam=WM_RButtonDown then
  begin
    GetCursorPos(p); //获取光标位置
    pmTray.Popup(p.x,p.y);  //显示弹出菜单
  end;
end;{应用程序最小化时图标显示在任务栏}
procedure TMainForm.AppMinimized(Sender:TObject);begin
  NID.cbSize:=SizeOf(TNotifyIconData);
  NID.hIcon:=Application.Icon.Handle;
  NID.szTip:= 'taxi';
  NID.uCallbackMessage:=WM_TrayMessage;
  NID.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
  NID.uID:=0;
  NID.Wnd:=Handle;
  Shell_NotifyIcon(NIM_ADD,@NID);
  ShowWindow(Application.Handle,SW_Hide);
end;procedure TMainForm.FormCreate(Sender: TObject);
begin
    Application.OnMinimize:=AppMinimized;
  AppMinimized(nil);
end;procedure TMainForm.FormDestroy(Sender: TObject);
begin
    Shell_NotifyIcon(NIM_DELETE,@NID);
end;