выполнение процедур одновременно

[Pamparam]

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

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

я вызываю процедуру передачи нажатия клавиш (например 'A') и через 5 сек вызываю ее еще раз, но на другое окно (т.е. с другими входными параметрами). первое выполнение процедуры останавливается, а второе начинает выполняться. Когда вторая отослала нажатия (например 10 раз) она завершается и только потом работая первой возобновляется.

procedure ahaha(handl:string);
var handle:thandle;
begin
   
   Handle:=FindWindow(nil, PChar(handl));
PostMessage(Handle,WM_CHAR,ord('A'),0);
    delay(100);
  ahaha(handl);
end;


procedure TForm1.Button1Click(Sender: TObject);
var Handle:Thandle;
begin
ahaha('окно1');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 ahaha('окно2');
end;

Т.е. нажал на кнопку с одним названием окна - все шлется
нажал с другим названием - в первое не шлется, пока это не завершится.
Так вот у меня вопрос...
Почему выполнение первой останавливается, пока не выполнится вторая? Походу, дело в процедуре Delay. Если да -какую альтернативу использовать?

[fate]

используй потоки для одновременного выполнения своей процедуры

[JUDAS]

используй потоки

вот мне очень интересно, как ?

[Pamparam]

если даже процедуры разные - происходит то же самое
проблема в том, что одновременно не могут выполняться 2 процедуры?

[JUDAS]

проблема в том, что одновременно не могут выполняться 2 процедуры?

могут и не только 2.
+ господин fate раскажет нам сейчас, мне самом интересно, хотел задать аналогичный вопрос но не стал увидев Вашу тему.

[mss]

одновременно не могут выполняться 2 процедуры?

Могут если в системе не менее 2-х процессоров.

[Pamparam]

используй потоки для одновременного выполнения своей процедуры

могут и не только 2.

зачем тогда потоки?

[JUDAS]

Могут если в системе не менее 2-х процессоров.

mss, поясните что Вы имели ввиду. То есть если у меня одноядерный процессор, то я не могу создать многопоточное приложение на своём компе, например стартануть Апач сервер, или организовать фоновый процесс паралельной прослушки ИП порта?
Прошу пояснения для моего общего развития. Заранее благодарю

[fate]

поясните что Вы имели ввиду

фактически если один процессор то в 1 еденицу времени может выполняться только одна задача, но процессор обрабатывает задачи очень быстро поэтому и складывается впечатление многозадачности.

Вам пример работы с потоками? могу набросать счас.

[mss]

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

В многопроцессорной мультизадачной системе имеется принципиальная возможность указать системе что такой-то конкретно кодовый поток должен быть выполнен таким конкретно процессором без его прерывания системой на обслуживание других кодовых потоков.