View difference between Paste ID: Pu8CLdwG and cHGJkDXy

 uses Sysutils;
 
-var Final:boolean=false; //если true то завершаемся
+var Zakon4itIspolnenie:boolean=false; //если true то завершаемся
-procedure gm; //паралельный поток проверки на GM
+procedure gm; //параллельный поток проверки на GM
 begin
-    while ( Delay(100) and not Final) do
+    while  Delay(100)
 	and not Zakon4itIspolnenie //важно
     do
-        print('Обнаружен ГеймМастер!');
+
     begin
         print('Обнаружен Гейм-Мастер!');
         PlaySound('warning.wav');
-        Final:=true; //halt;
+
         print('Подаю сигнал завершится другим потокам в данном случае их нету но в ваших скрипта они наверняка есть');
         Zakon4itIspolnenie:=true; //halt;
     end;
 end;
 
- print('Подаю сиганл потокам завершится');
+
- Final:=true;
+
  print('Подаю сигнал потокам завершится');
  Zakon4itIspolnenie:=true;//важно
 end;
 
 begin
 Script.NewThread(@gm); //запуск параллельного потока проверки на GM
 
 // ОСНОВНОЙ код\поток
  print('Работаю');
  delay(5000);
  print('Закончили работу')
  //тут не явный вызов onFree при нормальном завершении
 end.