Application hangs in SysUtils -> DoneMonitorSupport on exit

Question

I am writing a very thread intensive application that hangs when it exits.

I\'ve traced into the system units and found the place where the program enters an infinit

Answer 1

In Delphi XE5, Embarcadero solved this by adding (Now - Start > 1 / MSecsPerDay) or to the repeat until loop in CleanEventList so that it will give up after 1 millisecond. It then deletes the event regardless of whether Lock was 0.