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:

procedure TForm2.Button1Click(Sender: TObject);
var Dir1, Dir2, Dir3, a, b : String;

begin
  a := 'Projektordner wurde erstellt.';
  b := 'Projektordner wurde nicht erstellt.';
  Dir1 := Edit1.Text;
  Dir2 := Edit2.Text;
  Dir3 := Edit3.Text;

  begin
     SysUtils.ForceDirectories(Dir1);
     SysUtils.ForceDirectories(Dir2);
     SysUtils.ForceDirectories(Dir3);
  end;

//dieses Beispiel überprüft nur ein Verzeichnis,ich habe aber mehrere
if DirectoryExists(Dir1) then
        begin
          showmessage(a);
        end
      else
        showmessage(b);
 
end;					

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

procedure TForm2.Button1Click(Sender: TObject);
var
  Dir1, Dir2, Dir3, a, b : String;
begin
  a := 'Projektordner wurde erstellt.';
  b := 'Projektordner wurde nicht erstellt.';
  Dir1 := Edit1.Text;
  Dir2 := Edit2.Text;
  Dir3 := Edit3.Text;

  if SysUtils.ForceDirectories(Dir1)
    and SysUtils.ForceDirectories(Dir2)
    and SysUtils.ForceDirectories(Dir3) then
    ShowMessage(a)
  else
    ShowMessage(b);
end;					

1:
2:
3:
4:

if (Dir1='') then  Form3.Label1.Caption := b
      else
      
      SysUtils.ForceDirectories(Dir1);