1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

while not (terminated) and (FindNextChangeNotification(m_hNotify))do
       begin
          Application.ProcessMessages;
          dwWaitStatus := WaitForSingleObject(m_hNotify, 500);
          if dwWaitStatus = WAIT_FAILED then
            begin
              RaiseLastOSError();
              break;
            end;
          if dwWaitStatus = WAIT_OBJECT_0  then
            begin
              Function
              Application.ProcessMessages;
            end;
        end;
    end;