Trotz Bestätigung Programm mit Windows beenden

[Svenkan]

Hallo!
Bevor mein Programm beendet werden kann, muss dies durch eine Bestätigung 'vollendet' werden.

Delphi-Quellcode:

procedure THauptform.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
 if MessageDlg('Wollen Sie VPlan Plus wirklich beenden?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
   CanClose:=True
 else
   CanClose:=False;
end;

Wenn nun Windows beendet wird, während das Programm noch läuft, funktioniert dies auf Grund einer Warnmeldung nicht.

Wie ist es möglich, dass bei einem Shutdown CanClose auf True gesetzt wird?
Oder gibt es da noch bessere Möglichkeiten hinsichtlich des Beendens?