hDir := CreateFile(PWideChar(fDirPath), GENERIC_READ,
   FILE_SHARE_READ or FILE_SHARE_WRITE
   or FILE_SHARE_DELETE, nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
 repeat
       if Terminated then
         Exit;
       if ReadDirectoryChangesW(hDir, lpBuf, BUF_SIZE, True,
                        FILE_NOTIFY_CHANGE_LAST_WRITE or FILE_NOTIFY_CHANGE_SIZE or FILE_NOTIFY_CHANGE_CREATION , @cbReturn, nil, nil)
        then PostMessage(FWnd, WM_USER + 1, 5, 5); // сообщаю о наличии  изменений в форму
 until false;
CloseHandle(hDir);

 hDir := CreateFile(PWideChar(fDirPath), FILE_LIST_DIRECTORY,
   FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,
   nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS , 0);

FileContentsMonitor := TFileContentsMonitor.Create(edtFileName.Text,
       true, OnError, OnNewData);

procedure TForm1.OnError(Sender: TObject; E: Exception);
var
 ErrorMessage: string;
begin
 ErrorMessage := Format('%s: %s - %s', [Sender.ClassName, E.ClassName, E.Message]);
 // Тут логгируем наше сообщение, внимание метод вызывается в контексте доп потока!
end;

procedure TForm1.OnNewData(Sender: TObject; Buffer: PByte; BufferSize: integer);
var
 Data: PChar;
begin
 GetMem(Data, BufferSize + 1);
 try
   ZeroMemory(Data, BufferSize + 1);
   Move(Buffer^, Data^, BufferSize);
   // Тут по хорошему надо синхронизировать !!!
   mmoLog.Lines.Add('New data: ' + StrPas(Data));
 finally
    FreeMem(Data)
 end;
end;

FileContentsMonitor.Shutdown;
 FileContentsMonitor.Free;

     DirMonitor := TDirMonitor.Create(edtDirectory.Text,
       '',
       OnFileAction,
       OnError,
       True,
       AllFileNotifyOptions,
       AllFileNotifyActions);

     TextFileMonitor := TTextFileMonitor.Create(edtTextFile.Text,
       true, 1000, OnError, OnNewLine);

   for I := 0 to tmpList.Count - 1 do
     begin
       FileHandle := CreateFile(PWideChar(tmpList[I]), FILE_READ_ATTRIBUTES, FILE_SHARE_READ, nil,
         OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
       if FileHandle <> INVALID_HANDLE_VALUE then
         try
           size := GetFileSize(FileHandle, @HighSize);
           tmpList.Objects[I] := TObject(size);
         finally
           CloseHandle(FileHandle);
         end
       else
         sbMain.Panels[2].Text := SysErrorMessage(GetLastError);
     end;