[Bargest]

Сделать массив из потоков, и присваивать в pot[i]. Соответственно, останавливать тоже pot[i]. А на будущее - отказаться от названий классов и переменных в транслитерации. А то будет

Код:

chbayta chetyrebayta := chbayta(_4bayta1);