Вопрос!!
Допустим естьтакой код

For i:=1 to 10000000 do begin
{тута подсчитываем значения}
end;

Нак форме валяются кнопки <Страт> и <стоп>. Но во время выполнения цикла, они не сработывают. Нуна чтоб они работали, т.е:

For i:=1 to 1000000 do begin 
{тута подсчитываем значения}
{проверка на нажатие кнопки <стоп>}
end;