poner splash screen con progress bar en delphi

[Crashthebig]

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);//despues de que se cree cada form dile
  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.