Нестыковка времени выполнения процедур \ функций

[postal2]

За годы программирования на дельфи возник такой вопрос - почему если вызваит функцию сначала из одного места программы, а пока она работает из другого, то результат функции выйдет по второму запуску и в это же время и выйдет результат функции для первой, но равный второму?? Ладно, коряво объяснил, смотрите пример.

Имеется процедура delay, она делает паузу в программе без зависания(не как sleep) и две кнопки, на которых стоит задержка данной функцией и показ сообщения. Так вот, если нажать первую кнопку и, пока не завершилась функция, вторую, то сначала произойдёт событие второй кнопки и тут же первой (причём всё по времени задержки второй кнопки). Выкладываю код ниже

procedure tform1.delay(timeMS:cardinal);
var i:cardinal;
begin
i:=GetTickCount;
while ((GetTickCount-i)<timems) do
begin
sleep(100); application.ProcessMessages;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
delay(2000); showmessage('1');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
delay(2000); showmessage('2');
end;

Может есть какой-то способ побороть это? так, чтобы одна процедура при вызове из разных частей программы обращалась в разные ячейки памяти (ну вы поняли о чём я, обе процедуры и чтобы пахали отдельно). Не делать же по задержке на каждую функцию?! Заранее спасибо.

[Stilet]

в программе без зависания

Ессно, тыж применил application.ProcessMessages;

Что-то монстроподобное...
А что ты собсно хочешь сделать то?

[postal2]

Чтобы процедура задержки выполнялась из разных частей программы и не зависела от того, выполняется в данный момент она из другой части программы или нет
Может следует добавить override или что-то в этом роде?

[Пепел Феникса]

override
а вы смысла директивы этой незнаете чтоли?

по коду...так вроде так все и должно быть.
ибо задержки вполяются параллельно

попробуйте проверить с разными задержками

[postal2]

В том то и дело, что нет. Нажмите на кнопку 1 и, пока время ещё тикает, на кнопку 2. Сначала покажется сообщение 2, а только потом 1..

application.ProcessMessages тут вообще ни при чём. Наверно..

Скажем так, продолжение темы

[Пепел Феникса]

ну мне пришла в голову одна идея....но это уже извращенный изврат..

написать свой диспетчер функций...

[postal2]

Мда.. А из стандартненького ничего нет?!

[Пепел Феникса]

хм...еще одна идея пришла...делать задержку на основе WMTimer
тогда должно быть все норм.

кстати протестировал...по логике программы все верно...а знаете почему?

((GetTickCount-i)<timems)

тики то тикают
+в какой процедуре находится управление при нажатии первой а потом второй кнопки?
во второй процедуре...именно поэтому сначало будет второе сообщение а не первое

[postal2]

Честно говоря не понял..

[Пепел Феникса]

что именно?