V8.7

V8.7

Unitplace.pas

@@ -457,9 +457,8 @@ end;
 end;
 
 
-procedure TFormPlace.ButtonLanceRoutageClick(Sender: TObject);
+procedure TFormPlace.ButtonLanceRoutageClick(Sender: TObject);
 var i,j,adrDet,AdrTrain : integer;
-    trouve,demarre : boolean;
     trouve,demarre : boolean;
 begin
   if cdm_connecte then
@@ -467,8 +466,6 @@ begin
     Affiche('Le placement des trains incompatible en mode CDM rail',clOrange);
     exit;
   end;
-
-  
 
   trouve:=false;
   // explorer les détecteurs pour lancer les trains si le détecteur est affecté à un train