Der Source ist ja nur 5.4kb groß, bitte runterladen und deine methode testen.
Mir sagt "TApplicationEvents.OnShortcut" leider nichts, wahrscheinlich wegen meinem alten Delphi 7.
Wir sind nicht dazu da, deine Hausaufgaben zu machen. Du musst schon selbst was tun und nicht darauf warten, dass dir die Lösung auf dem Silbertablett präsentiert wird. Und dass man etwas, das man nicht kennt, mal eben in die Delphi-Hilfe eingibt, das ist wohl das Mindeste, was man erwarten kann. Und nicht: "Lade dir meinen Source herunter, implementiere deinen Lösungsvorschlag und prüfe, er in meinem speziellen Fall alle meine Anforderungen erfüllt."
Ganz abgesehen davon, dass ich nicht überprüfen kann, ob das in deinem speziellen Delphi 7 funktioniert.