Delphi - RE:ayuda con splash

bueno
lo que tienes que hacer es poner en el evento create de cada form alguna variable que cuando estos esten cargados la activen, asi podras saber cuando ya termino de cargarse cada form y hacer que el progressbar avance segun estos se crean

ejemplo en el evento formcreate del form1
//toma en cuenta que la variable debe de ser globla para que el
//splash pueda leerla

begin
fulanito := true;
end;

y asi con cada uno de los form de la aplicacion excepto el splash claro

pero para que complicarte la vida con el ejemplo de Trucomania:

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;