1:
2:
3:
4:
5:
6:

For i := Alpha bis Omega do
  begin
  VerzName := Format('A%.4d',[i]);// Hoffentlich richtig 4 Stellen mit Vornullen
  //VerzName := 'A'+IntToStr(i); 
  ...
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm5.Button1Click(Sender: TObject);
var start,stop:String;
    start2,stop2,rech:Integer;
begin
start2:=StrtoInt(edit1.Text);
stop2:=StrtoInt(edit2.Text);

while start2 < stop2 do
begin
start:='A';
start:=start+IntToStr(start2);
if DirectoryExists(start) = false then
CreateDir(start);
start2:=start2+1;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm5.Button1Click(Sender: TObject);
  var start,stop:String;
      start2,stop2,rech:Integer;
begin
  start2:=StrtoInt(edit1.Text);
  stop2:=StrtoInt(edit2.Text);
  while start2 < stop2 do begin
    start:='A'+IntToStr(start2);
    if not (DirectoryExists(start)) then
      CreateDir(start);
    inc(start2)
  end;
end;