Wie das Blockieren beim Herunterfahren verhindern/umgehen?

[Schucki]

Tch es gelingt mir nicht die MSG zu bekommen... habe folgenes gemacht...

Delphi-Quellcode:

...
   private
     procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
...

Und dann...

Delphi-Quellcode:

procedure TfrmMain.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.CmdType = SC_CLOSE then begin
    if not bolMainCanClose then mbtnClose.Click;
    Msg.Result := 0;
  end;
  Inherited;
end;

Aber wenn ichnun einen BP bei "if Msg.CmdType = SC_CLOSE then begin" setze wird der nie angefahren, meine Anwendung geht einfach nur zu

Was hab ich da wohl übersehen?
Gruß Frank