Последовательность выполнения процедур

[lemeshev]

Помогите решить проблему.
Есть 2-е процедуры.
К примеру по нажатию кнопки 1 запускается процедура 1.
Процедура выполняется долго к примеру 10 секунд.
Если на 5-й секунде нажатием кнопки 2 запустить процедуру 2,
процедура 1 останавливается, выполняется процедура 2,
после чего продолжает выполняться процедура 1.

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

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

Простейший пример ниже.

procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to 100 do
  begin
    sleep(100);
    Application.ProcessMessages;
    progressbar1.Position:=i;
  end;
end;

procedure TForm1.Button6Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to 100 do
  begin
    sleep(100);
    Application.ProcessMessages;
    progressbar2.Position:=i;
  end;
end;

[evg_m]

1.не использовать внутри этих процедур
application.processmessage;

2.при запуске процедуры блокировать возможность вызова других процедур
buttonA.enable:=false;
и разблокировать по окончании
buttonA.enable:=true;

[lemeshev]

Сообщение от evg_m

1.не использовать внутри этих процедур
application.processmessage;

2.при запуске процедуры блокировать возможность вызова других процедур
buttonA.enable:=false;
и разблокировать по окончании
buttonA.enable:=true;

1. форма должна оставаться активной.
2. процедуры в реальной задаче запускаются 3-мя способами: Кнопка/Таймер/По факту коннекта сокета.
Эти события нельзя блокировать, нужно просто выполнять процедуры последовательно и до конца.

[evg_m]

ставить флаг занято
вести лог(очередь) запусков

[lemeshev]

Сообщение от evg_m

ставить флаг занято
вести лог(очередь) запусков

К примеру ставлю флаг занято на время выполнения процедуры 1.
В начале процедуры 2 циклически проверяю флаг, но пока я проверяю флаг в процедуре 2 процедура 1 не работает и соответственно обе процедуры виснут навсегда.

Я уже пробовал эксперементировать и с Event и с WeitableTimer результат пока тот же.

Вероятно действительно придется заводить очередь и выполнять запросы последовательно по очереди.