primer vihoda s potokov 2

uses Sysutils;

var Zakon4itIspolnenie:boolean=false; //если true то завершаемся
procedure gm; //параллельный поток проверки на GM
begin
    while  Delay(100)
    and not Zakon4itIspolnenie //важно
    do
    if (players.getnear('* [') <> nil) then // поиск GM
    begin
        print('Обнаружен Гейм-Мастер!');
        PlaySound('warning.wav');
        Account.Stop('GM!');
        print('Подаю сигнал завершится другим потокам в данном случае их нету но в ваших скрипта они наверняка есть');
        Zakon4itIspolnenie:=true; //halt;
    end;
end;

Procedure OnFree;
begin
 print('Подаю сигнал потокам завершится');
 Zakon4itIspolnenie:=true;//важно
end;

begin
Script.NewThread(@gm); //запуск параллельного потока проверки на GM

// ОСНОВНОЙ код\поток
 print('Работаю');
 delay(5000);
 print('Закончили работу')
 //тут не явный вызов onFree при нормальном завершении
end.