Anwendung im Tray = Rechner fährt nicht runter???

[Schucki]

Also eigendlich klappt das so wie ich es wollte.
Anwendung wird minimiert und neben der Uhr angezeigt. Toll...

Delphi-Quellcode:

procedure HideTheApplication;
begin
  ShowWindow(Application.Handle, SW_HIDE);
  frmMain.TrayIconMain.Visible:=True;
end;

procedure ShowTheApplication;
begin
  frmMain.TrayIconMain.Visible:=False;
  ShowWindow(Application.Handle, SW_SHOW);
  Application.Restore;
end;

procedure TfrmMain.ApplicationEventsMinimize(Sender: TObject);
begin
  HideTheApplication;
end;

Was allerdings nicht geht und deshalb meld ich mich hier zu Wort ist wenn die Anwendung neben der Uhr liegt und ich den Rechner runterfahren möchte.

Dann muß ich die Anwendung erst aus dem Tray holen, diese dann beenden und dann nochmal auf Runterfahren drücken.

Warum ist das so? Wie kann meine Anwendung mitbekommen das Feierabend ist?

Gruß Frank