var
thread_id:array[1..100] of dword; // типа 100 потоков можно будет юзать

..........
procedure mypotok(id:dword);stdcall;
begin
..............
end;
.......
for x:=1 to 100 do 
 begin
   thread_id[x]:=CreateThread(nil, 0, @mypotok, pointer(x), 0, thread_id[x]); // запустить потоки
   SuspendThread(thread_id[x]); // приостановить потоки
   ResumeThread(thread_id[x]); // возобновить работу потоков 
  TerminateThread(thread_id[x],0); // прибить поток
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IdSMTP: TIdSMTP;
  idMessage: TidMessage;
begin
  idMessage := TIdMessage.Create(nil);
  try
    with idMessage do
    begin
      Recipients.Add.Address :='lol@mail.ru';{ кому отправляем }
      Subject :='Привет с античата!';{Тема}
      From.Address := 'Inter@yandex.ru';{ свое мыло }
      Body.Text := 'Добрый день'+#13+
      'Я знаю Delphi';
    end;
    IdSMTP := TIdSMTP.Create(nil);
    with IdSMTP do
      try 
        Host := 'smtp.ukrwest.net'; { сервер исходящей почты }
        Connect; 
        Send(idMessage); 
        Disconnect;
      finally 
        Free; 
      end;
  finally
    Free;
  end;
end;