потоки / количество потоков

[Emperator12]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Delay(dwMilliseconds: Longint);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyThread = class(TThread)

    private
    { Private declarations }
  protected

    procedure Execute; override;
    procedure UpdateCaption;
  end;

var
  Form1: TForm1;
  MyThread: Array of TMyThread;
  index: integer;

implementation

{$R *.dfm}

procedure TMyThread.UpdateCaption;
begin
  form1.memo1.Lines.Add('index['+inttostr(index)+']')
end;

procedure TForm1.Delay(dwMilliseconds: Longint);
var
   iStart, iStop: DWORD;
 begin
   iStart := GetTickCount;
   repeat
     iStop := GetTickCount;
     Application.ProcessMessages;
   until (iStop - iStart) >= dwMilliseconds;
 end;

procedure TMyThread.Execute;
begin
for index:= 0 to 10 do
  Synchronize(UpdateCaption);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 10 do
  MyThread[i]:=TMyThread.Create(true);
  MyThread[i].FreeOnTerminate:=true;
  MyThread[i].Resume;
end;

end.

Пытаюсь задать количество потоков, но выдает ошибку. Где ошибка в коде ?

Еще один вопрос.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyThread = class(TThread)
  HTTP: TIdHTTP;
    procedure UpdateCaption;
    private
    { Private declarations }
  protected

    procedure Execute; override;
  end;

var
  Form1: TForm1;
  MyThread: TMyThread;

implementation

{$R *.dfm}

procedure TMyThread.UpdateCaption;
begin
  form1.Label1.Caption:= 'åñòü';
end;



procedure TMyThread.Execute;
begin


if Pos('www.artlebedev.ru', HTTP.Get('http://ya.ru')) <> 0 then
  Synchronize(UpdateCaption);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 10 do
  MyThread:=TMyThread.Create(true);
  MyThread.FreeOnTerminate:=true;
  MyThread.Resume;
end;

end.

Почему код не выполняется ? просто не выполняется поток..

[Delphi_ProGer]

Сообщение от Emperator12

Почему код не выполняется ? просто не выполняется поток..

Должен выполняться! Вы как смотрите, что не выполняеться? По Label?
И какую ошибку выдает???? При компиляции или в Run-Time?

[eoln]

В первом коде динамический массив MyThread не определён в размерах (см ф-ию setlength)

Первый код бессмысленно применять, т.к. вся работа в синхронизации идёт, а второй код опасно применять, т.к. HTTP.Get не синхронизировано, именно поэтому, ИМХО, и не работает

P.S. Код не проверял