Tiempo para cargar datos en bd

[jsc]

Hola Foro,
Tengo una aplicación en con interbase a la que me gustaría darle una imagen diferente en el momento de comenzar a trabajar con ella.
Me gustaría si es posible alguien me ayudara ó aconsejara cómo hacer lo siguiente:
-Poner una barra de progresso dentro de un StatusBar y hacer que incrementara en función a la carga de datos de la base de datos en mi aplicación. Es decir, algo así como las barras de progresso que aparecen cuando abres una página en Internet...
Utilizo una Form SplashScreen para aparecer mientras se carga la aplicación...
Código para inicio de la aplicación
Application.Initialize;
//Abrir Splash Screen
SplashScreen := TSplashScreen.Create (Application) ;
SplashScreen.Show ;
SplashScreen.Update ;

Application.Title := 'ProAver v1.3';
Application.HelpFile := '';
Application.CreateForm(TForm1, Form1);

//Ocultar Splash Screen
FrmConectarABd.Free ;

Application.Run;

En el evento OnCreate de la Form1 utilizo este código:

Try Database1.Connected := True ;
Except Showmessage ('No se pudo conectar a la Bd') ;
End ;

SplashScreen.Barra.StepIt ;
SplashScreen.Update ;

CargarDatos () ; --> función que carga abre los query's...

SplashScreen.Barra.StepIt ;
SplashScreen.Update ;

SplashScreen.Hide ;
Hay manera de saber el tiempo que tardaría en abrir la base de datos, cargar los datos... y actuar con ese tiempo para mover la barra de progresso en consecuencia...?
Espero puedan ayudarme y corregirme en lo que esté equivocado

Muchas gracias por todo