Vor dem Beenden eine Aktion ausführen?

[mlspider]

Ich habe eine Applikation, die minimiert als Tray Icon gestartet wird und nur darauf wartet, bis es durch das Beenden von Windows geschlossen wird.

Dabei soll das Programm beim schießen, einen Registerschlüssel modifizieren. Ich habe es wie folgt versucht:

Delphi-Quellcode:

uses registry;

{$R *.dfm}

var regist : TRegistry;

begin
if Application.Terminated then begin
  regist := TRegistry.Create;
  regist.RootKey := HKEY_CURRENT_USER;
  regist.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', true);
  regist.WriteInteger('DisableTaskMgr', 1);
  sleep(3000);
  end;

end.

Leider ohne Erfolg. Wie könnte man dies anstellen?