多线程问题

Question

我有这样的代码：
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
    test0 : TDATAPUT;
    test1 : TDATAPUT;
begin
  test0 := TDATAPUT.Create(0);
  test1 := TDATAPUT.Create(1);
end;
TDATAPUT是多线程的类，在这里我只定义了两个线程，我想动态的定义线程应该怎样定义？？例如我在TEDIT中定义了五个，我应该怎样做，上面的VAR后面的变量应该怎样定义，请写出原代码！！！给高分！！！！

Answer 1

楼主是这意思吗?
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
  threadAry: array[0..4] of TDATAPUT;
begin
  for i:=0 to 4 do
    threadAry[i] := TDATAPUT.Create(i);
end;