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;