Остановить выполнение

[Kronos913]

Есть

procedure TForm1.Button1Click(Sender: TObject);
begin
  While {что-то там} do begin
    {тело цикла}
  end;
end;

Выполнение действия занимает много времени

Вопрос: что нужно сделать, чтобы нажатием на Button2 можно было остановить выполнение цикла?
Допустим, можно сделать какой-то булеан, который ставить в условие цикла, но как сделать так, чтобы нажатие на Button2 обработалось в процессе долгой обработки нажатия на Button1 ?

[evg_m]

чтобы нажатие на Button2 обработалось в процессе долгой обработки нажатия на Button1 ?

Application.ProcessMessage;

https://programmersforum.ru/showpost...55&postcount=3

[Arigato]

Тут надо смотреть в сторону многопоточности.

[digitalis]

Думаю, что предложенного evg_m достаточно без перелопачивания всей проги.