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

procedure TForm1.Button1Click(Sender: TObject);
var koned1, koned2, Dir2 : String;                

begin

 if (koned1='') or (koned2='') then                                      //beim ersten Klick wird diese Abfrage ausgeführt
     MessageDlg('Bitte Eingaben überprüfen',mtWarning,[mbRetry],0)
      else
      begin
      SysUtils.ForceDirectories(koned1);
      SysUtils.ForceDirectories(koned2);
      end;


 

     begin                                      //und diese Abfrage soll erst beim zweiten Klick auf den Button ausgeführt werden                    
      
      if SysUtils.DirectoryExists(Dir2) then
          HinweisV
      end;

end;					

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

tfrom1.buttonclick(sender:tobject);
if variable= false then
begin
...
variable:=true;
end;

if variable=true then
begin
...
end;
end;					

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

 procedure TForm1.Button1Click(Sender: TObject);
begin      
       if SysUtils.DirectoryExists(Dir2) then
       begin        
           HinweisV; {verzeichnis vorhanden exit}
           exit;
       end;
       
      if (koned1='') or (koned2='') then 
          MessageDlg('Bitte Eingaben überprüfen',mtWarning,[mbRetry],0) 
     else
     begin 
         SysUtils.ForceDirectories(koned1);
         SysUtils.ForceDirectories(koned2); 
     end;
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
begin      
       if SysUtils.DirectoryExists(Dir2) then     
         HinweisV {verzeichnis vorhanden exit}
       else 
         if (koned1='') or (koned2='') then 
           MessageDlg('Bitte Eingaben überprüfen',mtWarning,[mbRetry],0) 
         else
         begin 
           SysUtils.ForceDirectories(koned1);
           SysUtils.ForceDirectories(koned2); 
         end;
end;