RegisterWaitForSingleObject - wie richtig benutzen?

[SnuffMaster23]

Delphi-Quellcode:

type
 TfnWaitOrTimerObject = procedure(lpParameter: pointer; TimerOrWaitFired: ByteBool); stdcall;

  function RegisterWaitForSingleObject(
    var hNewWaitObject: THandle;
    hObject:            THandle;
    callback:           TfnWaitOrTimerObject;
    context:            Pointer;
    dwMilliseconds:     DWORD;
    dwFlags:            DWORD): BOOL; stdcall; external 'kernel32.dll';

.
.
.

    TheHandle := FindFirstChangeNotification(PChar(pathEdit.Text), subdirCheckBox.Checked, FILE_NOTIFY_CHANGE_LAST_WRITE);
    RegisterWaitForSingleObject(TheHandle, TheHandle, UploadFile, nil, INFINITE, 0)

Es funktioniert schonmal dass ich Änderungen im überwachten Verzeichnis mitkrieg, nur der Haken an der Sache ist, die Callback-Funktion wird immer und immer wieder aufgerufen sobald einmal was passiert is...