Detectando a finalização do windows

{Para detectar a finalização do Windows, deve-se capturar a mensagem WM_ENDSESSION. Estes passos devem ser tomados: Declarar uma rotina de manipulação de mensagens na sessao private de sua form:}

procedure WMEndSession(var Msg : TWMEndSession); message WM_ENDSESSION;

//Adicionar a procedure à seção implementation de sua unit:

procedure TForm1.WMEndSession(var Msg : TWMEndSession);
begin
if Msg.EndSession = TRUE then
ShowMessage('O Windows está finalizando ' + #13 + 'às ' +
FormatDateTime('c', Now));
inherited;
end;