NTLog, reagieren bei neuem Eintrag, mal ok mal nicht ok

[Jackie1983]

Servus,

habe hier im Forum irgend wann mal ein Tool gefunden welches die Ereignissanzeige überwacht.
Soweit so gut.
Hier der Code

Delphi-Quellcode:

//...
    ret := WaitForMultipleObjects(fEventLogCount, @events, False, 1000);
    if ret <> WAIT_TIMEOUT then
    begin
      for i := 0 to fEventLogCount - 1 do
        if GetNumberOfEventLogRecords(fLogsHandle[i], totnumevents[i]) then
          if totnumevents[i] > fEventCounts[i] then //!!!
          begin
            //Neuen Eintrag auslesen
//...

Wenn ein Eintrag erstellt wurde, springt die anwendung immer in die IF bei <> Timeout,
also bekommt er jeden Eintrag mit.

Nur bei !!! funktioniert es nicht immer, als ob der irgend wie noch Zeit braucht
oder sonst was. Also er zeigt nicht immer an das ein neuer Eintrag geschreiben wurde, obwohl er immer in die if springt.

mfg