si estas usando delphi 7 debes ir al menu project y en la opcion view source haz clic para que veaz el codigo del projecto, crea un nuevo form y cambiale ña propiedad name a SplashForm y ponle un componente ProgressBar, ve de nuevo al menu project y haz clic en la opcion que dice Options y debes poner la SplashForm en la lista que dice avaible form,
luego ve al source code del projrcto y escribe esto:
Código Delphi
[-]
Application.Initialize;
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
SplashForm.progressbar1.StepIt;
Application.CreateForm(tform1,form1); al progrees bar que aumente con el comando stepit;
SplashForm.progressbar1.StepIt;
Application.CreateForm(tform2,form2);
SplashForm.progressbar1.StepIt;
Application.CreateForm(tform3,form3);
SplashForm.progressbar1.StepIt;
SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.
de esta forma cada vez que se cree un form el progressbar aumentara su valor de forma automatica, recureda poner el codigo SplashForm.progressbar1.StepIt; despues de que se cree cada form el procedimiento stepit es el que hace que el progreesbar aumente.
espero que les halla servido de algo, gracias.