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

     begin
            if (koned1='') or (koned2='') then
            begin
              MessageDlg('Bitte Eingaben überprüfen',mtWarning,[mbRetry],0);     // die erste Abfrage wird so oft ausgeführt,bis die zwei Variablen nicht mehr
              Exit;                                                          // leer sind und erst dann werden die Verzeichnisse erstellt
            end

             else
              begin
              SysUtils.ForceDirectories(koned1);
              SysUtils.ForceDirectories(koned2);
              Schreiben;
              end;
     end;


     begin                                                      // und mit der zweiten Abfrage prüfe ich,ob die Verzeichnisse auch wirklich erstellt wurden,
     if not SysUtils.DirectoryExists(Dir2) then                 // somit entfällt dann die dritte Abfrage
     HinweisN

      else
        HinweisJ;
     end;