SplashScreen con progressbar

Hacer que aparezca una ventana mientras se carga mi aplicacion (Splash Screen)
se explica cómo hacer una SplashScreen.
"SplashScreen con progressbar", esta pensado sobre todo para cuando abres bases de datos y se tarda un mundo en cargar el programa. Con el progressbar queda bastante bien...
Primero debemos definir cuantos "pasos" va a tener el progressbar, en este caso el numero de bases de datos que vamos a abrir, luego establecemos por ejemplo el valor Max progressbar a 40 y el valor Step a 10 y hacemos 4 "stepit", seria de la siguiente manera:
Este codigo esta en el evento OnCreate de una form principal, pero podriamos mandarlo llamar de otras forms siempre en el evento OnCreate.

 

 procedure TForm1.FormCreate(Sender: TObject);   

 begin
   Try
     DataBase1.Connected:=True
   Except
     ShowMessage('Cannot open DB1')
   End;
   SplashForm.ProgressBar.StepIt;
   SplashForm.update;
   Try
     DataBase2.Connected:=True
   Except
     ShowMessage('Cannot open DB2')
   End;
   SplashForm.ProgressBar.StepIt;
   SplashForm.update;
   Try
     Table1.Active:=True
   Except
     ShowMessage('Cannot open Table 1')
   End;
   SplashForm.ProgressBar.StepIt;
   SplashForm.update;
   Try
     Table2.Connected:=True
   Except
     ShowMessage('Cannot open Table 2')
   End;
   SplashForm.ProgressBar.StepIt;
   SplashForm.update;
   ...
   SplashForm.Free
 end;