Критические секции или события?

[denis_gidin]

Здравствуйте!
Проблема в следующем
хочу остановить цикл и дождаться завершения процедуры
например:
есть глобальные переменные

var
  DoRun: Boolean = false; //Состояние выполнение процедуры
  Stop: Boolean = false; //Остановка цикла

в процедуре Button1 выполняется цикл:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DoRun := True;
  while 1 < 2 do
  begin
    application.ProcessMessages;
    if Stop then
      break;
  end;
  DoRun := false;
end;

в процедуре Button2 хочу остановить цикл и дождаться завершение процедуры Button1:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Stop := True;
  while DoRun do
    application.ProcessMessages;
  ShowMessage('Stop!');
end;

После того как нажимаю Button2 процедура зацикливается
так как значение переменной DoRun равна истине.
Подскажите пожалуйста как правильно организовать остановку?
Если можно примером...
Спасибо!

[Stilet]

как правильно организовать остановку?

Правильно это будет сделать в отдельном потоке, а не стопорить главный, потом разрешать ему читать сообщения, потом опять стопорить.

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

Я у себя так это делал

[denis_gidin]

Спасибо! Посмотрел интересное решение!

[denis_gidin]

Спасибо Виталий!