Создание большого количества потоков

[Crystallon]

Стандартным образом я создаю поток так:

type
  TMyThread = class(TThread)
  public
    procedure Execute; override;
  end;

procedure TMyThread.Execute;
begin
//
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyThread: TMyThread;
begin
  MyThread:=TMyThread.Create(False);
end;

Как мне в цикле создать нужное мне количество потоков?
Мне приходит голову только как-то так:

var
LoadThread: array [0..5000] of TThread;

for i:=1 to 50 do
begin
LoadThread[ThreadID] := TMyThread.Create(False);
end;

Но конечно это не работает...
Подскажите как правильно записать кодом мою мысль =)

[Пепел Феникса]

LoadThread: array [0..5000] of TThread;

for i:=0 to 5000 do
begin
LoadThread[i] := TMyThread.Create(False);
end;

[Crystallon]

Сообщение от Пепел Феникса

LoadThread: array [0..5000] of TThread;

for i:=0 to 5000 do
begin
LoadThread[i] := TMyThread.Create(False);
end;

В коде TMyThread.Execute находится загрузка определенной картинки, если вызываю старым способом(без массива) TMyThread.Create(False); то HTTP анализер показывает что картинка загрузилась, а если ставлю этот код то HTTP анализер молчит(а поидее картинка должна загрузиться аш 5 раз(у меня так стоит)). Только вот вопрос - зачем вы поставили to 5000? В обьявлении массива я такую большую цифру поставил "прозапас" и на сколько я знаю ей не обязательно быть равной той циверке которая стоит после to, главное чтобы меньше не была...

[Пепел Феникса]

тут уже надо смотреть код потока.
может он у вас плох.