type
  {$IFDEF UNICODE}
  TBuffer = TBytes;
  {$ELSE}
  TBuffer = string;
  {$ENDIF}

function OpenFile(const AName: string): THandle;
begin
  Result := CreateFile(
    PChar(AName),
    GENERIC_READ,
    FILE_SHARE_READ or FILE_SHARE_WRITE,
    nil,
    OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL,
    0
  );
end;

function ReadFile(const AName: string): TBuffer;
var
  LFile: THandle;
  LSize: Cardinal;
  LReadSize: Cardinal;
begin
  LFile := OpenFile(AName);
  while LFile = INVALID_HANDLE_VALUE do begin
    Sleep(100);
    LFile := OpenFile(AName);
  end;
  try
    LSize := GetFileSize(AFile, nil);
    if LSize = INVALID_FILE_SIZE then
      RaiseLastOSError;
    SetLength(Result, LSize);
    Win32Check(ReadFile(AFile, Pointer(Result), LSize, @LReadSize, nil));
    if LSize <> LReadSize then
      SetLength(Result, LReadSize);
  finally
    CloseHandle(LFile);
  end;
end;

function SameBuff(const ABuf1, ABuf2: TBuffer): Boolean;
begin
  Result := 
    (Length(ABuf1) = Length(ABuf2)) and
    CompareMem(Pointer(ABuf1), Pointer(ABuf2), Length(ABuf1));
end;

procedure LoadToList(const AName: string; AList: TStrings);
var
  LBuf1: TBuffer;
  LBuf2: TBuffer;
  LCurBuf: ^TBuffer;
begin
  LBuf1 := ReadFile(AName);
  LCurBuf := @LBuf2;
  repeat
    LCurBuf^ := ReadFile(AName);
    if LCurBuf = @LBuf2 then
      LCurBuf := @LBuf1
    else
      LCurBuf := @LBuf2;
  until SameBuff(LBuf1, LBuf2);
  {$IFDEF UNICODE}
  AList.Text := TEncoding.Default.GetString(LBuf1);
  {$ELSE}
  AList.Text := LBuf1;
  {$ENDIF}
end;

function TestFileAccess(const AFileName: string): Cardinal;
var
  LHandle: THandle;
begin
  LHandle := CreateFile(PChar(AFileName), GENERIC_READ, FILE_SHARE_READ, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if LHandle <> INVALID_HANDLE_VALUE then begin
    CloseHandle(LHandle);
    Result := 0;
  end else
    Result := GetLastError;
end;

.......

    LAccess := TestFileAccess(AInfo.Path + AInfo.NewFileName);
    if (AInfo.Action in [FILE_ACTION_ADDED, FILE_ACTION_MODIFIED, FILE_ACTION_RENAMED_NEW_NAME]) and
       (LAccess <> ERROR_FILE_NOT_FOUND)
    then begin
      while LAccess = ERROR_SHARING_VIOLATION do begin
        Sleep(0);
        LAccess := TestFileAccess(AInfo.Path + AInfo.NewFileName);
      end;