Code:

begin

with tform5.create(nil) do

try

progressbar1.max := 100;

show; // Показываем форму form5 с индикатором progressbar1

update; // Прорисовываем форму form5

application.createform(tform1, form1);

progressbar1.stepby(25);

application.createform(tform2, form2);

progressbar1.stepby(25);

application.createform(tform3, form3);

progressbar1.stepby(25);

application.createform(tform4, form4);

progressbar1.stepby(25);

finally

free; // Разрушаем ненужную форму form5

end;

application.run;

end.