Аварийная остановка

[remz]

как прервать выполнение данного цикла (к примеру добавить кнопку "Стоп", которая бы делала остановку выполнения)

  for i := 1 to n do //цикл, который нужно прервать
    begin
      Out32($378,0);
        for j := 1 to m do
          begin
            inc(k);
          end;
      if RadioButton1.Checked then
        Out32($378,5);
      if RadioButton2.Checked then
        Out32($378,7);
    end;

[raxp]

если в цикле, добавьте флаг или ту же проверку чекета и break

[Stilet]

Присоединяясь к вышесказанному:
Пихни в цикл Application.ProcessMessages, тогда можно будет нажать на кнопку. По ее нажатию меняй флаг, а в цикле его проверяй.

[remz]

ок, спасибо, уже разобрался =)