1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

   procedure TFormSilentAlert.ApplicationEvents1Minimize(Sender: TObject);
begin
   FormSilentAlert.Hide;
  with NIM do begin
    cbSize := SizeOf (nIM);
    Wnd := Handle;
    uID := 0;
    uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    uCallbackMessage := IC_CLICK;
    hIcon := Application.Icon.Handle;
    szTip := 'wpcstf';
  end;
  Shell_NotifyIcon(NIM_ADD, @NIM);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

 procedure TFormSilentAlert.Systray(var sMsg: TMessage);
var
  Pnt: TPoint;
begin
  // Vorgang: Klick auf das Icon neben der Uhr und Anzeige der Anwendung
  inherited;
  if (sMsg.LParam = WM_LBUTTONDOWN) then begin
   if (FormSilentAlert.checkPriviledges() = true) then begin  // <--Pruefen
      Show;
      Shell_NotifyIcon(NIM_DELETE, @NIM);
      Application.Restore; //zeigt die Anwendung wieder an
      Application.BringToFront;
   end;
  end;
    if (sMsg.LParam = WM_RBUTTONDOWN) then begin
     SetForegroundWindow(FormSilentAlert.Handle);
        GetCursorPos(Pnt);
        PopupMenu_tray.Popup(Pnt.x, Pnt.y);
  end;
end;					

1:

   if FormSilentAlert.checkPriviledges() then begin  // <--Pruefen