Jak przechwycić uruchamianie wygaszacza ekranu

W sekcji "private" umieść taką linię kodu:

procedure WMSYSCommand(var M: TMessage); message WM_SYSCOMMAND;

W sekcji "Implementation" natomiast:

procedure TForm1.WMSYSCommand(var M: TMessage);
begin
  if M.WParam <> SC_SCREENSAVE then inherited
  else ShowMessage('Uruchamianie wygaszacza...');

  M.Result := 0;
end;