unit ProgressRunDev; interface uses Windows,Forms, StdCtrls, Controls, Classes; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation uses ProgressForm; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var i : integer; const N = 10; // число итераций в цикле begin ProgressCreate(); for i:= 1 to N do begin sleep(1000); // имитирует длительные вычисления if ProgressIsInterrupted(i/N) then begin // действия в случае прерывания вычислений break; end; end; ProgressClose(); end; end.