如何对一个文件夹下的个文件重命名？(200分)

我现在想对一个文件夹下的多个文件进行重命名，命名的时候按照我的规则进行，比如，第一个重命名为：原文件名+‘1’，第二个重命名为：原文件名+‘2’依此类推，直到全部完成为止，请问如何实现，请高手出招！

procedure TForm1.Button3Click(Sender: TObject);
var Dir: string;
sr: TSearchRec;
find: Integer;
i:integer;
begin
if SelectDirectory('选择目录','c:/',dir) then
begin
i:=1;
find:=FindFirst(dir+'/*.*', 0, sr);
while find=0 do
begin
renamefile(dir+'/'+sr.Name,dir+'/'+sr.Name+inttostr(i));
inc(i);
find:=FindNext(sr);
end;
FindClose(sr);
end;
end;

来晚了,二百分啊[]

很想了解下，很实用的问题哈！：）

TYZhang厉害啊[]