[dr. F.I.N.]

Вы переименовываете файл с указанием только его имени, без указания пути до фала. Поэтому найти его функция и не может.

Код:

...
repeat
   if (H<>INVALID_HANDLE_VALUE) and (D.cFileName <> widestring('.')) and(D.cFileName<>widestring('..')) then
    begin
      NewFileName:= StrDir+'test.txt';
      if MoveFileW(PWideChar(StrDir + d.cFileName), PWideChar(NewFileName)) then begin
        ShowMessage('OK!')
      end else begin
        ShowMessage('Error: '+ GetLastError+ d.cFileName+ '   '+SysErrorMessage(GetLastError));
      end;
    end;
  until not FindNextFileW(H,D);
...