[shtrih]

Сообщение от icWasya

Так оно и есть.

Каждый раз делать проверки (увы и ах)
Например так

Код:

ProgressBar1.Position:=ProgressBar1.Position+1;
ProgressBar1.Update;
if ModalResult<>0 then Exit;
.................................................. .
ProgressBar1.Position:=ProgressBar1.Position+1;
ProgressBar1.Update;
if ModalResult<>0 then Exit;

Спасибо. Видимо на протяжении всего кода, придётся делать так.