API - impedir o windows de desligar

Declare a seguinte função em Private:

procedure WMQueryEndSession( var Message: TWMQueryEndSession); message

WM_QUERYENDSESSION;

Em Implementation:

procedure TMainFrm.WMQueryEndSession(var Message: TWMQueryEndSession);

begin

  Message.Result:=1;

  Application.Terminate;

end;

A função acima sempre é chamada quando o Windows pede para desligar aí ele

finaliza seu aplicativo!