Anwendung terminiert manchmal nicht

[Die Muhkuh]

Hi,

ich hab mich mal durch den kompletten Destroy-Vorgang gewurschtelt und hab, so glaube ich, die Zeile gefunden:

Delphi-Quellcode:

if lThread then begin
      if AWaitForClose then begin
        lTimeOut := WaitForSingleObject(GClosedEvent, C_AD_PhysManagerShutdownTimeout) = WAIT_TIMEOUT;
        CloseHandle(GClosedEvent);
        GClosedEvent := 0;
      end;

Es geht um die Zeile mit dem WaitForSingleObject, die dauert immer unterschiedlich lange und manchmal sehr lange. Das Timeout steht auf 10000.