RenameFile код ошибки 2

[ArtGrek]

...
  Path := 'C:\Documents and Settings\ArtGrek\Мои документы\Projects Delphi7\ADShow 0.9.1'
...

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  ReN: integer;
  NewN: string;
begin
      ReN := 0;
      if FindFirst('Images\*.jpg', faAnyFile, SR) = 0 then
      begin
        repeat
          inc(ReN);
          NewN := Path + '\Images\' + IntToStr(ReN) + '1.jpg';
          if RenameFile(SR.Name, NewN) then ShowMessage('переименован')
            else ShowMessage('переименовка прошла с ошибкой : '+ IntToStr(GetLastError));
        until FindNext(SR) <> 0;
        FindClose(SR);
      end;
end;

в каталоге 5 фаилов и сообшение ShowMessage показывает 5 раз код ошибки 2
второи день мучаюсь, подскажите в чем дело?
переименовываю:
1.jpg -> 11.jpg
...
5jpg -> 51.jpg

[GunSmoker]

ShowMessage('переименовка прошла с ошибкой : '+ IntToStr(GetLastError));

заменить на

ShowMessage('переименовка прошла с ошибкой : '+ SysErrorMessage(GetLastError));

Тогда увидишь:

  { The system cannot find the file specified. }
  ERROR_FILE_NOT_FOUND = 2;

И подсказка: что у тебя лежит в SR.Name?

[ArtGrek]

GunSmoker спасибо, помог увидить проблему
я думал SR.Name возвращает весь путь к фаилу
так работает

 if RenameFile(Path + '\Images\' + SR.Name, NewN) then ShowMessage('переименован')