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;