Многопоточная программа

[kakawkin]

Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var NewThread: TNewThread;
begin
 NewThread:=TNewThread.Create(true);
 NewThread.FreeOnTerminate:=true;
 NewThread.Priority:=tpLower;
 NewThread.Resume;
end;

procedure TNewThread.Execute;
var i:integer;
begin
 for i:=1 to 10000 do form1.memo1.lines.add(inttostr(i));
end;

Собственно в одном потоке все хорошо. Пытался делать в двух потоках изменением кода у кнопки:

procedure TForm1.Button1Click(Sender: TObject);
var NewThread,NewThread1: TNewThread;
begin
 NewThread:=TNewThread.Create(true);
 NewThread.FreeOnTerminate:=true;
 NewThread.Priority:=tpLower;
 NewThread.Resume;
 NewThread1:=TNewThread.Create(true);
 NewThread1.FreeOnTerminate:=true;
 NewThread1.Priority:=tpLower;
 NewThread1.Resume;
end;

но он мне по 2 раза выводит, т.е. я предполагал что будет выводить быстрее а он:

1
1
2
2
3
3
4
4

и т.д.

Не подскажите как сделать так чтобы было несколько потоков на 1 код ?

[Человек_Борща]

Ключевое слово "Синхронизация". В DRKB есть целый раздел по синхронизации процессов. Там описано много чего, что тебе поможет решить проблему с потоками.

[W0LF]

Вообще-то, ключевое слово "2 переменных одного типа". Вас не смущает, что вы создали 2 полностью идентичных потока, их запустили, а потом удевляетесь почему у вас 2 раза выводит одно и тоже?

[kakawkin]

нет не смущает т.к. кроме этого примера ничего другого не видел.
Спасибо за информацию!
В DRKB всего одна статья и то левая какаято.

Немогли бы сами дать пример хороший какойнить ?

[Человек_Борща]

Держи пример, их там много.