1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm2.Button2Click(Sender: TObject);
var i,nummer:integer;
begin
  nummer:=StrToInt(edit1.Text);
  For i := 0 to ShellListview1.Items.Count-1 do
  begin
    sleep(10);
    RenameDir(
        shelllistview1.Folders[i].PathName, 
        ExtractFileDir (shelllistview1.Folders[i].PathName)
          +'\'+IntToStr(nummer)
      );
    inc(nummer);
  end;
end;

procedure TForm2.RenameDir(DirFrom, DirTo: string);
var 
  shellinfo: TSHFileOpStruct;
begin 
  with shellinfo do 
  begin 
    Wnd    := 0; 
    wFunc  := FO_RENAME; 
    pFrom  := PChar(DirFrom); 
    pTo    := PChar(DirTo); 
    fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or
              FOF_SILENT or
               FOF_NOCONFIRMATION;
  end; 
  SHFileOperation(shellinfo); 
end;                    

1:

For i := 0 to ShellListview1.Items.Count-1 do                    

1:

For i := ShellListview1.Items.Count-1 downto 0 Do                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm2.Button2Click(Sender: TObject);
var i,nummer:integer;
    templist:TStrings;
begin
Shelllistview1.AutoRefresh:= false;
templist:=Tstringlist.Create;
nummer:=StrToInt(edit1.Text);
For i := 0 to ShellListview1.Items.Count-1 do
 begin
 templist.Add(shelllistview1.Folders[i].PathName);
 end;

for i:= 0 to templist.Count-1 do
 begin
 RenameFile(templist[i],ExtractFileDir(templist[i])+'\'+IntToStr(nummer));
 Statusbar1.Panels[0].Text := IntToStr(i+1)+' / '+IntToStr(templist.Count)+'Ordnern.';
 Application.ProcessMessages;
 inc(nummer);
 end;

templist.Free;
shelllistview1.AutoRefresh:= true;
shelllistview1.Refresh;
end;