Передать переменную в поток,туплю.

[larin1974]

создаю потоки этим методом

procedure TForm1.Button1Click(Sender: TObject);
begin;
For I:=1 to 1 do
     begin
     new[i] := tnew.create(true);
     new[i].freeonterminate := true;
     new[i].priority := tplowest;
     new[i].resume;
     end;
end;

Надо чтобы в каждом потоке лежала переменная с номером этого потока.

[Greblin]

Объявить в классе потока в public переменную Number и в вызывающей процедуре писать

new[i].Number := i;

[larin1974]

Да спасибо)))я уже понял)