[Alegun]

Наверное лучше делать так, хотя общий смысл данного действа остался не понятен

Код:

while ProgressBar1.Position < ProgressBar1.Max do
begin
 ProgressBar1.Position:=ProgressBar1.Position+1;
 ProgressBar1.Update;
 if ModalResult<>0 then Exit;
end;