Привет юный друг... Наверное сидишь и ломаешь голову себе и не можешь понять как работать с потоками? Да ладно, сам был таким, искренне сочувствую, но давай я помогу ее решить в краткой статье 
Как запускать поток в Delphi?
Т.е. по сути если взять этот код и засунуть в кнопку, мы запускаем один поток. То, что я ввел вначале Thread - это имя, его можно поставить любым.
Если тебе конкретно требуется запустить по кнопке определенное кол-во потоков, можно применить следующий код:
Код
var
i:integer;
begin
For i:= 1 to 10 do Thread.Create(False);
end;
Этим кодом мы запускаем от 1 до 10 потоков.
Как должен всё-таки выглядеть сам поток? Примерно вот так:
Код
procedure Thread.execute;
begin
//Ваш код или действия
end;
Если ты хочешь чтобы в поток выполнялся бесконечно, то можно добавить бесконечный цикл, который будет все время выполнятся. Цикл будет засунут в поток следующим образом:
Код
procedure Thread.execute;
begin
while true:=true do
//Ваш код или действия
end;
В while нужно добавить указатель что это правда, например в кнопку добавить где var , добавляем: true:boolean;
После того как добавили в begin добавляем наш указатель, т.е. говорим нашему запускаемому потоку делать наши повторные действия до бесконечности или нет. Укажите true:=false; он не будет работать до бесконечности, если true:=true; - значит он сработает и будет работать до бесконечности!
Обязательно продолжу со временем эту статью. Всем спасибо!