Fange Windows shutdown/rebbot

Jeg har nedenstående kode på min main form - det virker sådan set fint nok. Men hvis jeg af en eller anden grund vil genstarte maskinen som programmet kører på, så ville jeg gerne undgå den besked om at lukke ned.
Kan man fange en meddelelse fra Windows og så reagere på den?

Procedure TfrmMain.FormCloseQuery(Sender: TObject; Var CanClose: Boolean);

Begin
  If MessageDlg('Do you realy want to quit ' + conProgram_Name + '?',
                mtConfirmation, [mbYes, mbNo], 0) = mrCancel Then CanClose := False;
End;