Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

У меня вот несколько вопросов по потокам, например я создаю в потоке 1 процедуру Potok1

Код:

var
  Form1: TForm1;
  trId : THandle;

implementation

{$R *.dfm}

procedure Potok1;
begin
showmessage('поток1');
end;

begin
CreateThread(nil,0,@Potok1,0,0,trId);
end.

1. Как уничтожить этот поток, после выполнения в процедуре Potok1 всех команд.

2. Как уничтожить этот поток, если в процедуре Potok1 выполняется бесконечный цикл.

3. если я например 2 раза создам этот поток

Код:

begin
CreateThread(nil,0,@Potok1,0,0,trId);
CreateThread(nil,0,@Potok1,0,0,trId);
end.

то как поведёт себя программа, создастся 2рой поток с этой процедурой или что?

4. Что ещё интересного можете дать почитать по потокам.