Programm beendet bei Windows Restart nicht

[Centrii]

Delphi-Quellcode:

procedure Tfmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose := true;
end;

Delphi-Quellcode:

procedure Tfmain.FormDestroy(Sender: TObject);
begin
  DeleteThread.Terminate;
  try
    DeleteThread.WaitFor;
  except
  end;
  DeleteThread.Free;
  Lock_Draw.Free;
  Lock_Query.Free;
  Lock_ClientCheck.Free;
  Lock_UpdateList.Free;
  Lock_NameCheck.Free;
end;

Delphi-Quellcode:

procedure Tfmain.WMEndSession(var Msg: TWMEndSession);
begin
  if msg.Unused = 0 then //d.h. es ist ein reboot/shutdown
  begin
   Statusbar1.Panels[2].Text:='Windowsmessage: reboot or shutdown required';
   Statusbar1.Update;
   Application.ProcessMessages;
   close;
  end
  else                  //d.h. es ist ein logoff
  begin
   Statusbar1.Panels[2].Text:='Windowsmessage: logoff required';
   Statusbar1.Update;
   Application.ProcessMessages;
   close;
  end;
end;

procedure Tfmain.WMQUERYENDSESSION(var Msg: TMessage);
begin
  msg.Result := Integer(true);
end;

so das ist alles was meiner Meinung nach relevand ist. Wie gesagt, alles im FormClose ist auskommentiert.