Trocando nome de arquivo

Como faço isso:
Tenho arquivos *.mp3 em uma pasta.
aaa1.mp3
aaa2.mp3
aaa3.mp3
aaa4.mp3

Gostaria de trocar o nome dos arquivos tipo assim:

For x:=1 to (numerodearquivos) do
begin
nome[x]:=´arquivo´+[x];
end;

Pessoal, ajuda ae !!