Ищу альтернативы моей программе

[mayonezer1]

Всем привет!
И я не студент, но мне определённо тоже требуется помощь.
На днях обнаружил большое количество музыки, которую нужно переименовать. Вручную переименовывать оч долго, нудно и не интересно. Вид названия "000 та та та.mp3" мне нужно удалить первых 4 символа вместе с пробелом. Я написал небольшую программу которая удаляла бы эти символы, но что то она работает некорректоно.

Вот пример процедуры:

procedure TForm1.ButtonReClick(Sender: TObject);
var
  f, y, Dir: string;
  i:Integer;
  searchResult:TSearchRec;
begin
  if FindFirst('*.mp3', faAnyFile, searchResult) = 0 then
   begin
    repeat
     f:=searchResult.Name;
     i:=Length(f);
     i:=i-4;
     y:=Copy(f,5,i);
     RenameFile(f, y);
    until FindNext(searchResult) <> 0;
   end;
   Close;
end;

и когда я включаю прогу она удаляет немного больше.

[BDA]

При пошаговом выполнении станет понятно, что программа делает ровно 1 лишний шаг (по крайней мере у меня так), т.е. 1 файл переименовывает 2 раза.

Сделал вот так (возможно, топорно):

procedure TForm1.ButtonReClick(Sender: TObject);
var
  f, y, Dir: string;
  i: Integer;
  searchResult: TSearchRec;
  filelist: tstringlist;
begin
  filelist := tstringlist.Create;
  if FindFirst('*.mp3', faAnyFile, searchResult) = 0 then
  begin
    repeat
      filelist.Add(searchResult.Name);
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;
  for i := 0 to filelist.Count - 1 do
    renamefile(filelist[i], copy(filelist[i], 5, length(filelist[i]) - 4));
  filelist.Free;
end;

[Utkin]

Ищу альтернативы моей программе

Полно, вот примеры:
http://www.3dnews.ru/software-news/625666
http://toxicomaniac.ru/pereimenovani...e-it-your-way/
http://www.bestfree.ru/soft/file/rename.php

[mayonezer1]

Большое спасибо!