primer vihoda s potokov

uses Sysutils;

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

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

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

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