Delphi - Detectar que windows se cierra

Como puedo saber desde mi aplicacion que windows se va a cerrar o reiniciar?

Gracias

Tienes que "capturar" el mensaje oportuno:

En tu form, puedes poner:

private
procedure WMQueryEndSession(var Msg : TWMQueryEndSession); message WM_QueryEndSession;
...
implementation
procedure TPatata.WMQueryEndSession(var Msg : TWMQueryEndSession);
begin
if MessageDlg('Cerrar Windows ?', mtConfirmation, [mbYes,mbNo], 0) = mrNo then
Msg.Result := 0
else
Msg.Result := 1;
end;