Und was passiert, wenn du anstatt
Action := caNone;
das OnCloseQuerry-Ereignis nimmst und
Delphi-Quellcode:
if not BeendenErlaubt then
CanClose := false;
hineinschreibst?
BeendenErlaubt ist eine einfache boolsche Variable, dessen Wert du auch true setzen muss, wenn du im Tray auf "beenden" klickst. So als Beispiel.