Монитор каталога

[BOBAH13]

Знаю сейчас умники меня пихнут в поиск Но я уже разгреб материал. Проблема собтсвенно в чем есть список каталогов каждый инициализируется как

CreateFile(PCHAR(FileName), GENERIC_READ,
    FILE_SHARE_READ or FILE_SHARE_DELETE or FILE_SHARE_WRITE,
    NIL, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);

пото в обработке потока Execute пишу

var
  i: Integer;
  Buf: array[0..4095] of Byte;
  p: PFinderChangeItem; // мой тип хранить Filename: string, h: DWORd; ну имя и хендл открытой папки
  Ret: DWORD;
begin
  while not Terminated do        
  begin
    if not FPause then
    begin
      i := 0;
      while not Terminated and (i < FItems.Count) do
      begin
        p := FItems[i];

        FillChar(Buf, SizeOf(Buf), 0);
        if ReadDirectoryChangesW(p^.h, @Buf, SizeOf(Buf), False,
          FILE_NOTIFY_CHANGE_FILE_NAME or FILE_NOTIFY_CHANGE_DIR_NAME or
          FILE_NOTIFY_CHANGE_ATTRIBUTES or FILE_NOTIFY_CHANGE_SIZE or
          FILE_NOTIFY_CHANGE_LAST_WRITE or FILE_NOTIFY_CHANGE_LAST_ACCESS or
          FILE_NOTIFY_CHANGE_CREATION or FILE_NOTIFY_CHANGE_SECURITY, @Ret, NIL, NIL) then
        begin                   
          FCurrent := i;
          MessageBoxA(0,pchar(p^.FileName),'',0); // вызывается только один раз.. почему понять не могу ????
         //Synchronize(DoUpdate);
        end;

        inc(i);
      end;
    end;
    Sleep(100);
  end;
end;

p.s. ну хоть с этим помогите

Проблема решена... сделал прослушивание папки для каждой отедльную нить