Wie das Blockieren beim Herunterfahren verhindern/umgehen?

[Schucki]

Hallo DP'ler!

ich habe folgenes Problem und finde die Lösung nicht. Vielleicht kann mirhier einer helfen der das vlt. schon gelöst hat.
Meine Anwendung läst sich nicht durch die Aktion "Windos gerunterfahren" schließen. Warum weiß ich derzeit noch nicht.

Wichtig ist, das ich beim Beenden noch einie Aktionen ausführen muß!
Mein Quelltext dazu sieht wie folgt aus:

Delphi-Quellcode:

procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if mbtnCon.Down then begin
    if (not bolMainCanClose) and (not timClose.Enabled) then begin
      mbtnCon.Click;
      intCanClose:=0;
      timClose.Enabled:=True;
    end;
    CanClose:=False;
  end;
  frmSetup.SaveSetupExit;
end;

Wenn das Programm hier gefragt wird ob es geschlossen werden darf dann wird der Timer aktiviert weil noch Handlungen vor dem Schließen ausgeführt werden müssen. Der Timer ruft nach Ende nochmal neu das frmMain.Close auf und da bolMainCanClose dann true ist, geht die Anwendung auch zu. Allerdings klappt das nicht wenn man START BEENDEN HERUNTERFAHREN macht.



Hat jemand einen Tip für mich?

Gruß Frank