Jak wykryć moment zamykania Windows

Do sekcji "private" dodaj taką linie:

procedure ClosingWin(var Message: TMessage); message WM_QUERYENDSESSION;

Teraz w sekcji "implemetation" wpisz:

procedure TForm1.ClosingWin(var Message: TMessage);
begin
if Message.Msg = WM_QUERYENDSESSION then
begin
// jakaś akcja
end;
DefaultHandler(Message)
end;