Опять про многопоточность!

[trafbite]

Может ты просто не дождался? Я же там прикололся и задержку потока поставил рандомно... Она могла и 5 мин длиться
Поставь везде sleep(1000) должна через секунду сработать каждая. Ну или почти через секунду.

Да нет, sleep я вообще сразу на 10 поставил - уж 10 миллисекунд я точно дождался
Т.е. у тебя этот код работает норм., только у меня ошибки и один поток?

Кроме Тексейры и Пачеко ниче не посоветую...

Спасибо!

[trafbite]

Хм, я вроде как разобрался. Попробовал все это дело упростить (Stilet, в твоем коде сразу не разобрался с присваиваниями лейблов туда-сюда - нужно будет это еще "покурить").
Получается, что тут полная аналогия с одним отдельным потоком. Только мы его создаем столько раз, сколько нужно, верно?

Вот у меня обработчик нажатия кнопки на форме в unit1:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  MyThread: TThread;
begin
  for i:=1 to 10 do MyThread:=thr.Create(false);
end;

А вот процедура Execute потока и процедура синхронизации в unit2:

procedure thr.upload;
begin
  Number:=StrToInt(Form1.Label1.Caption);
  inc(number);
  Form1.Label1.Caption:=inttostr(Number);
end;

procedure thr.Execute;
var
Rand, i, r:longint;
List:tstringlist;
begin
FreeOnTerminate:=true;
List:=TStringlist.Create;
  rand:=random(1000000000)+100000000000;
  for i:=1 to rand do inc(r);
  List.Add(inttostr(i));
  List.SaveToFile(ExtractFilePath(Application.ExeName)+inttostr(i)+'.txt');
  Synchronize(upload);
end;

Так проверил, вроде бы они работают одновременно + через диспетчер задач (мониторинг ресурсов) посмотрел - в приложении 15 потоков (правда диспетчер показывает 5 потоков уже при запуске приложения, но после старта их число увеличивается на 10 - это радует)

Вот только вопрос, надо ли вот здесь:

  List.SaveToFile(ExtractFilePath(Application.ExeName)+inttostr(i)+'.txt');
    //вот здесь начало
  Synchronize(upload);
    //вот здесь конец
end;

использовать критические секции или мьютексты? По идее то, два потока смогут и одновременно обратиться к Label1...

Поясните, пожалуйста.