1) поток сам уничтожится после своего выполнения.
2) или ставить глобальный флаг остановки и в патоке обрабатывать его типа while(not stopflag) do .....
или просто насильно убить поток через TerminateThread(trId,0);
Но тогда поток запускать нужно так: trId:=CreateThread(nil,0,@Potok1,0,0,trId);
trId в данном случае - дискриптор патока, через который его можно убить, остановить, изнасиловать, запустить.
3) Если поток юзает локальные переменные (инициализированные внутри функции) то хоть 100 раз запускай его. Если юзаются глобальные переменные, то они могут затераться, если это чтото типа буферов. Глобальные счетчики можешь юзать спокойно
4) почитай про все API функции из модуля windows.pas в который будет в названии текст thread